Create on Ames arcade game. 



ACf s TECH Amiga 




\ oiiitnc .s Number 2 
i s si ,.<)S( uiada $19.95 



Ole 



•ARexx Disk Cotalogcr 

•Getfile Shell for True BASIC 

•Ole'-flmos arcade gome 

•Programming the Amiga 
in Assembly Language Part VI 

•Porting a B+Tree Library 

•Assembly Language Computer 
Simulations 

•Wrapped Up in True BASIC 



1 



7fcfc?0'?86*.i 



02 






ON WITH THE SHOW! 

The 4th Annual 

WORLD OF 
COMMODORE AMIGA 

IN NEW YORK CITY 
April 2, 3 & 4, 1993 

Come to America's greatest exhibition and 
sale of Amiga hardware, software and 
accessories! 

SEE, TRY AND BUY — ALL THE 
LATEST EXCITING PRODUCTS: 

The dazzling new Amiga 4000! 
The Amiga 1200! 





ADMISSION: S15.00 per day. S30.00 for three-day pass. 

SHOW HOTEL Holiday Inn Crowne Plaza, 1605 Broadway, 
New York. NY 10019. For reservations call (212) 977-4000. 
Show rate $135 single or double. Deadline March 9. 1993. 

For more show Information, phone (416) 285-5950. 






Contents vo lu .e, Numb ., 2 kcteoi/amiga 



4 OLE by Thomas J Eshefman 

An arcade game programmed in AMOS BASIC. 

14 Programming the Amiga in Assembly Language Part VI 

by William P. Nee 

Part VI in the continuing series on Assembly Language programming. 

24 Porting a B+Tree Library to the Amiga by John Bushakra 

Porting a library of data management routines from the PC to the Amiga 

34 Wrapped Up with True BASIC by Dr. RoyM. Nuzzo 

Text and graphics wrapping modules in True BASIC 

40 Assembly Language & Computer Simulations by wimam p. Nee 

A simulation showing how a virus can spread between cells. 

51 Getfile Shell for True BASIC by win steinsiek 

Creating on External Library through the use of True BASIC. 

55 ARexx Disk Cataloger byl Dorrei westbrook 

An AmigaDOS manipulator that produces o text file containing information 
about the floppy disks you want cataloged. 



Departments 



3 Editorial 

48 List of Advertisers 

49 Source and Executables ON DISK! 
72 AC'S TECH Back Issues! 



Volume 3, Number 2 



print f ("Hello") ; 



print "Hello" 



JSR printMsg 



say "Hello" 



writeln( "Hello" 



Whatever language you speak. \< "s 11(11 

provide** a platform for both gaining insight 

and sharing informal ion on Its most 

iiino* ali\ e implementation for I he Amiga. 

Why mil see if Your latest programming 

rndeai in- can help a fellow Amiga user 

expand upon his or her vocuhularv? To he 

considered for publication In \€"s 'I Mil. 

submit your technically oricnlcfl article 

(both hard copy A disk) lo: 



\( s rECH Submissions 

PiM Publications, Inc. 

P.O Box 21 10 

Fall River. MA02-22-JI-I0 
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Startup-Sequence 



I'd like to firs) address a lettei that I have received sinc« the last 
issue lli.' first is from Raymond Zartingand i- In regards to the article 
Trading Commodities In Workbench 2.0," AC* TECH Volume 3, 
Number 2. He writes 

The article Wading Commodities in Workbench 2 0" 
was very interesting. It offered a focused way for me lo leam 
more about writing commodities, which is one ol those things 
1 had been meaning to get around to lor some time I liked the 
writing style, too, which "as helpful in explaining what was 
happening without becoming condescending 

But the code, and heme the exposition, contained .1 bug- 
h took me Some time to track it down, and il had meanwhile 
become embedded in another commodity I wrote myself 
modelled on what I had learned trom this article l.esl Other ol 
your readers similarly repeat this mistake, 1 thought I would 
write in the hope you could publish a correction 

The bug manifests itself it the user specifies a 
loolti, pi- tor the commodity Hie code searches the tooltypes 
for tin-, and assigns the resulting String to ■ character pointer 
c, near the middle of function Then 

is called, and that is a mistake, because the 
String to which x points is freed by that action, so the popkey 

. ould be overwritten by the time 1! i- used in the 
Hoik' call A-a reMilt. about half of the tune when 

• started in my startup-sequence (while there were 
plenty ol other commodities starting up at the same lime) the 
installation would (ail with a "broker error"'. 

According to Commodore's autodocs for 
.in • 

yold IxgArrtyOoM ivoMI 

This (unction frees memory and does cleanup required by 
Arg Array InitO Don't call this until you are done using the tooltypes 
argument strings 

i tnc W8) ''i lumg the problem would be to copj the string X lo 

some memory owned In MMB CX before calling ArgArravlJonet) 
When I made that change and recompiled, the random errors I had been 
getting when using MMB CX m my WBstariup ceased 

1 hank you for publishing .in otherwise excellent article. 

Sincerely, 

Raymond L /.irhng 



I would like to thank Mr. Airlmg lor bringing the bug to our 
attention and also thank him (or offering a solution. 

Disabled Users 

\\ lull- at the WOCA Toronto, I was approached by an Amiga user 
g to know it I knew pi anv good public-domain programs tor the 
handicapped. I his gentleman was confined to a wheelchair Specifically, 
he was looking for .1 program that would allow him to use his Amiga to 
control electrical appliances in his house and anything else that might 
make his lite easier I directed him \oACs GUIDE and its complete list 
of Fred I 'i-.li software On looking into the guide sometime later. I 
realized that there |ust is not a great deal of software available lor 
handicapped Amiga users rhesame holds true tor the other major 
plattornis This 1% pnmanl\ because computet soltwanB programs 
designed tor the physically and developmentally impaired are usuall) 



highl) specialized and directed lo the needs ol an individual and not a 
group Of users 

But diH-s the Amiga have the potential to reach out to this special 
group ol users? Oven the power and flexibility of the platform, 
combined with the wide range ol development packages available, the 
answer should be yes 

Man) handicapped persons work with computet* regularly. I have 
a friend, lube, who is autistic |ulie has vised computers al school and at 
home Shehasa Nintendo Entertainment System 1 * 1 that she has 
mastered and can plav Super Mano Brothers'*' better than lommv 
played pinball. Julie has used my A600 on occasion She b> comfortable 
with using a mouse and is able to navigate around Workbench with no 
more trouble than the average user But once she's on the computer, 
what will she do with it? Well, she enjoyed Qduxeftnirt U'and had a 
ball willi Phi rVrfnfa speak (unction But aside trom playing game-, 1h.1t 
was it 

lulie a- well as other disabled persons. „in greatly bencfil Irom the 
use of computers. We need more commercial and pubUc domain 
software geare.1 to the handicapped. There are specific areas h here 
Amiga software could be beneficial, bul development should not be 
limited to those areas. Business, productivity, entertainment, all 
categories: should be included, not just educational and developmental. 

The Challenge 

AC'sTCCH is sponsoring a development contest Basically, you 
have to develop an Amiga application geared toward disabled users 
You may u SB any development system you wish and you may add j. 

specific disability or present a program tor ■ general handicapped 

audience I his will require some work [he lime vim spend on the 
application, both in research and development, will be time well spent 
YOU will be doing a world of good for the community Of disabled users 

AC's I IX H will award prizes tor (he best application and two 
runners-up. The entry deadline is October 22, 1993. Your entf) should 
be either a fully functional program or a working demo ol the program 
You must provide documentation with the program ( ontCff winners 
Will be announced in the -I 1 issue ol AC's II CH We have pul logethei a 
complete set ot contest rules and entry inlormalion We have also 
assembled a lis! nt guidelines lo follow and suggestions tor possible 
developrnenl It costs nothing to enter the contest and we are hoping tor 
a large turnout. II von like to Write Code and develop applicalions, this 
is ,1 e,ood project to turn \ our talents and lime toward. 




Jeff Gamble 
Editor 



Pot the Contest Information Pack eaU or write AC's TECHaX 

AC'S TECH Contest 
P.O. Box 2140 

Fall River. MA 02722-2140 
l-e00-345-33o0 
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OLE! 




An Arcade Game Programmed in 



AMOS BASIC 

by Thomas J. Eslielman 



This article is intended to help the reader more fully appreciate an 
amazing language dedicated exclusively to the Amiga computer A 
close examination of the accompanying code will reveal AMOS's 
simplicity as well as its power We will carefully dissect a generic 
Amiga arcade game written in AMOS. AMOS is not dedicated to 
games programming, rumors to the contrary notwithstanding. 
I fowever, because of its extremely high horsepower in the realms of 
sights and sounds, it is a natural preference for anyone thinking about 
programming games Similarly, it can easily toss off those exercise* 
commonly referred to as "Eurodemos." We will pay special attention 
lo a few of the more important and powerful components of the 
language sometimes ignored in other discussions Alter realizing just 
how little code has been written lo realize a fairly complete 
gametmmersed as it is In copious comments, I hope thai you will 
conclude it is worth your while to invest in AMOS. A compiled version 
of OLE is available for those of you without an AMOS interpreter 

What Is AMOS? 

AMOS is a superset of the BASIC programming language Several 
hundred instructions, tailored especially to engage the special 
hardware of the Amiga computer, are appended to a garden vanetv 
BASIC. This is done in a fashion friendly to multi-tasking and without 
fear of invoking the dreaded Guru. The terms "AMOS" and "BASIC" 
may be and are used interchangeably. 

Along with this BASIC interpreter comes a host of accessor) 
programs, including a Sprite and Bob Designer/Editor, an AMAU 
Language Editor, a background editor called 'TAME," an unusually 
powerful Menu Editor (like animated Menu) terns!) and other 
programs that convert IFF, SMUS, Tracker, etc.. files into formats 
directly useable by the interpreter. All these powerful utilities are 
themselves written in BASIC* A BASIC compiler and a 3-D object 
generator-animator are also available but at extra cost One wonders 
what might have transpired had the Amiga been bundled with 
programs such as Power Windows™, AMOS and the ARP library at its 
debut in 1985. 



OLE— The Game 

Oil is .■ version of |ohn Gttmore's devei I'D game titled. Fast 
Amigo- The player moves the matador across each of four decks, 
picking up prizes as he climbs ladders leading to the next higher 
decks. All the while he must [ump over charging bulls to avoid heme, 
gored. Appropriate sound effects are rendered. After the four decks 
are conquered, the user advances to the next skill level With each of 
the nine skill levels, the matador becomes more tired, and hence 
slower The bulls, however, run faster as they get madder, making 
them more difficult to avoid 

The original game was j bit fast tor many mere mortals v\ en 
when run on a 68000 Amiga, unless von happened to be part mon- 
goose. On an accelerated machine, it nearly defied visiblitv We want 
to illustrate AMOS, however, not reinvent the wheel Fast Amigo 
exhibited a great sense of humor while it kept the plot simple t 'I I 
will Blow down the action not because of its BASIC origins, but rather 
by making the vertical blanking interval serve as an Internal timer. 
Let's start by examining a less familiar but important feature c4 AMI*** 

Memory Bonks 

The term "memory bank' has quite an exotic "ring" to it, but the 

concept is actualk very simple Memory banks are merely areas of 
memory which are automatically incorporated into the main file at 
such time as the file is saved to disk Most of the time, banks arc 
created automatically by BASIC, totally tranparentlv to the usee 
However, means an provided for the mote advanced programmer to 
create and BCCCSS them as required for some special program applica- 
tion If I paint some Bobs in the Sprite I ditor and save them to disk, 
thev will be saved as an ".abk" file by default When I load this " abk" 
file using an instruction written into niv MASK program, memory 
bank number "1" will be created, and the image data will load there 
The purpose of memory banks is to hold data. SUCJl as images. 
music and sound samples. AM Al. programs are the exception (more 
on them later) It is logical enough to provide separate storage anas tor 
the manv categories of audio/visual data when von evp 
commonly deal with them in large quantities Thus, the BASIC 
interpreter is spared from having to gather it together from bits .\\\<\ 
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pieces scatte re d throughout memory. To get .1 quick feel tor the 
subject, let's look at some memorv banks in action 

Table 1 reveals K lines of code the programmer max choose to run 
but once, as long as he doesn't mind working with .1 large file II he 
chooses to save the tile alter he runs it. these lines may thereafter be 
deleted!' The tirst two lines each allot a tr a s, i,vn and load an II I Hie, 
created (or example from IX-luxd'ainC* 1 , from the disk into it Ihenext 
lour lines are more directly on point. They automatically allocate and 
load memorv banks with abk (amosbank) files, the particular ID 
numbers ot the banks being supplied as defaults In I u can'l 

get nuich simpler than this' 

Note that we treatr abk" tile-- » Tienever vve RM rate output 
from any ol the various accessory or format -conversion programs. 
such as the Sprite Iditor 01 the Sample Hank Maker 

Finally, we take those I IT screens Ji^d compress them into 
memorv banks, this lime employing the user's choice o( bank ID 
numbers, with the spatk' (s. nvn pack) command. Spack alloc .iu- a 
memory bank of sufficient size to contain the compacted IIT" file, 
compacts it and copies it therein The purpose behind compacting the 
fik*s is to save disk space, of course. The fruits of these operations are 
not realized, therefore, until we "save" the program. On that occasion, 
the screens will he saved to disk in a compacted form. 

You should also he aw are that there are a total of 15 of these 
memory banks available. The first five should be used by the program- 
mer only in a pinch, since BASIC will also use them by default for 
spec ilk data tvpes II is legal to append toother data within a bank, 
but why ask for confusion as to "what is where" until after all 15 have 
been used' Here banks 6 and 7 were chosen because banks 1,3,4, -ind 
5 are "spoken for." Screens and 2 are compressed, and shoehomed 
into the banks with only these two lines of code! 

lb make all this data an integral part ot the program, we simply 
run BASIC and then resave the file! A 9000 byte file may "blossom" 
suddenly to one of 200,000 byte*-, especially where a number of sound 
samples exist in a bank. Sound sample files are large by their very 
nature Of course, we. an subsequently delete the lines of code in Tabic 
1 since we need never load these files again, unless we choose to 
modify them. Nor must these files be carried separately elsewhere on 
the disk along with your BASIC file. All the code, and all the data ait 
now* one "chunk." as it were. 



We can then replace the (able 1 code with that in Table 2, if 
desired When the disk file is loaded, AMOS automatically remembets, 

creates, and loads the same banks that were previously used W SB* e 
the data' As far as (he 111 picture- are concerned, the Unpack 
commands cause the banks containing them to he decompressed, 
screens to be allocated for them, and the pictures then copied from the 
hanks into the screens I'he banks may thereafter be erased it desired 
I his would free their memory for other uses. 

The bottom line is that the choice is yours whether to carry 
around a number ol small hies, or to weld them into one large hie. The 
latter includes the infamous memory hanks as integral pails ] „: 
development work. 1 tind if com eiuent to work with the large die, but 
I never delete the "Load" commands Thus, any changes 1 make to ^n 
"abk" file will be reflected in the dominant file without my having to 
remember to resave il separatelv. If you program op an unaccelerated 
machine, or worse, with no hard drive, it will certainly pav to work 
with the small, individual files. No time will then be wasted reloading 
or ew big unaltered portions ol your program 

Whal is AMAL? 

The Amiga Animation Language That's what' AMAL is a small 
sublanguage. In the AMOS system, the BASIC interpreter becomes and 
functions as a compiler of AMAL instructions! The sOL£ purpose of 
AMAL is to move and animate any graphic elements, including 
Sprites, Bobs, screens, and rainbows. 

The use of AMAL is optional, however. It contains only two 
instructions, irrelevant to OLE. that are not readily duplicated in 
BASIC. On the other hand, AMAL instructions have the advantage ot 
being as last as anything written in C or assembler, being as they an 
part of a compiled language. AMAL programs run asynchronously 
with their BASIC parent, I~hey run at their own very high speed 

AMAL may be written using either the AMAL Editor, the output 
of which is automatically incorporated into memory bank no. 4 as an 
".abk" file, or it may be written directly in the BASIC editor along and 
in line with other, common BASIC instructions 

AMAL consists of only 10 commands but these are wry finickv as 
to their formatting. They consist of one (rarely two) uppercase letters 
onl\ I owercase i- not recognized. Tor example, to assign a \alue to a 
variable, there exists a command, the use of which is mandatory, 
called, "Let". Ihis may just as well be written. I.', but it is error to 
write it as "LET". "LeT" or "1ET". 



Tabic I 




Allocate si reens. 

Load 111' files into them 


Load 111 "Title pit .1 
Load Iff "OLE.pic*,0 


Load OLHSprites.abk 
Load OLEAmal abk 

Load OLESamples abk 
Load QLEMusk .ahk 




Create and load bank 1 
" " bank 4. 
" bank 5. 
" " bank 3- 


Spacfc <i To 6 
Spack 2 To 7 


Create banks fi and 7. Compress 
St reens and 2 into them. 



Table 2 



1 Fnpack 7 To 2 
Erase 7 

1 Inpack <> To 
Erase 6 



Allocate screen 2. Copy bank 
into il "Mien erase the bank. 

\s above- Decompress bank o 

into screen 0. and erase bank. 



Note: ( )ne never need refer to an) abk file as such 
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By ili'Muli. there are 1»> AMAI. programs or channels, each of 
which ln driven or started up by its own hardware interrupt. Each 
channel animates and moves one graphics object They all run 
Independently of BASIC, and neither interferes with nor slows down 
the other Since BASIC is not in the same league as any compiled 
language when it com.", to speed, Francois Lionet, the father of AMOS, 
intends we do our animations in AMAI. and our screen setups and 
other grunt work in BASIC. We may call an Amal program but once 
from BASIC, and not consider il again The Amiga's interrupt system 
takes over 

I here are two situations, however, where we will want to call 
AMAI programs out of the BASK code itself, rather than letting them 
run by themselves \ ia interrupts First, we may want to simulta- 
neously animate more than 16 Bobs or computed Sprites [he Amiga's 
hardware restricts us to using only 16 interrupts. BASIC can set up and 
run any number of channels, however. The default setting, as a matter 
of fact, Ls 64 Bobs or Sprit. is!! 

Secondly, we can never do collision detection within an interrupt 
handler. The Amiga's Blitter hardware prohibits this We still want to 
do collision detection, however, from within AMAI. and not BASIC, 
since AMAI. is always faster by several orders of magnitude, even 
when called from BASIC 

1 he AMOS system provides a workaround in the form of the 
"Synchro" command With each call to Synchro, alt the AMAI. 
programs are launched asynchronously with the rest of the BASIC 
code Ihis gives us the best of both worlds You arrange to call the 
Synchro command once before each vertical blanking interval (VBI). 
This is the route we will go in OLE, and this is the reason we broach 
the subject of AMAL this early. 

Writing AMAL programs 

I ei us examine some AMAL code- W'hen writing AMAL 
Instructions, I humbly suggest you utilize the AMAL editor as 
opposed to writing them directly in BASIC. It is legal to do both, but 
the first scheme avoids the confusion offered by the interminably long 
columns of inline code characteristic of BASIC, and it saves having to 
repeatedly type the damnable 'AS=A$»'"" line starter. Also, the 
AMAL Editor allows instant testing of |ust your AMAL channel, as 
long as you bother to load a few Bobs or Sprites into the "Environment 
Channel'' for display purposes. AMAL also provides a debugger with 
which you can read, write, or follow AMAL variables. The down side 
of all these wondrous artifacts is that you must leam to use the AMAL 
Editor. Please turn your attention to Table 3. 

I lere is .in AMAL program consisting of seven commands in four 
lines I lowever, it is enough to continuously gallop one of our bulls 
back and forth across the display. The same code appears in channels 
2, 3, and 4, each controlling one bull "Let" Ls our first AMAL com- 
mand Observe it appears in both legal formats mentioned above. 'X' is 
a "magic" variable that always contains the horizontal coordinate of 
whatever you are animating with this particular channel It is a local 
variable with that name, "X", hardcoded. Each channel has its own 
"X". The value "15" is chosen since it starts the bull just inside the left 
edge of the screen. "V", obviously, is the vertical coordinate and works 
lust as described for "X". "A:" is a label. Note well the distinguishing 
colon character! 

"Amm" is another of our 10 AMAI instructions. It will display 

image "4 (a standing bull) for nine ticks (50ths of a second), then image 
*> (a stretched out bull) for 15 ticks. The value "0" directs il to cycle 



continuously "Move* is vet another of the 10 AMAI. commands Here, 
we move right 290 pixels, down pixels in "KA" limequantuim. "RA" 
is one ol 2h global AMAI variables (KA-RZ) that we may access from 
within BASIC .is well .is Irom within any other AMAL program' They 
work much like C globals in the latter language. By reducing the value 
in RA, we quicken the horizontal speed of the galloping bull Increas- 
ing RA does the opposite 

The next Anim and Move commands are very similar. We exhibit 
mirror images (nothing to it thanks to the Sprite Editor) so our bull 
faces left, and run him left for 290 pixels 'Jump A' does nisi .»s you 
would expect It loops lorever. lump' could have been written merely 
as ')" The bull ordinarily won't stop galloping back and forth across 
the SCreen until we quit the program or turn off this AMAL channel 



Tabic 3 

chan i to l*>b l 
bottomost hull 

Lei v-15; LY-196; 

A: Anim 0,(4,9X5,15); Move 290.0.RA; 

\ 0,(2,9X3,15); M -290,0.RA; 

Jump A. 



I able t 

than K io Im»I> 8 
top prize 

'assign .i value Irom setprizes procedure in bosk 
"io iins channel's \ 

Lei X-RK; 

ii collision legal, check lor same. 

else pause .mil rcicsi Hag 

A. II" RL-0 Jump II; Pause; lump A. 
'if a collision is detected, set anti-repeal flag 

li: If BCC8.0.0) I C; P; J A; 

C: LRL-I; 

display appropriate prize Image, 
'increment score per current skill level 

LA-R019; LRORC+1; L RM-RCIO+RM; LRP-I; I A; 
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Tabic 5 


It RD-OJ L. If RD-I J M; HRD-2 1 Y 




'chanOtobobG 


pit k left "i right image, reset flags, 




• the matador 


move matador using t to n loop, helps render - pu 




• 


speed Irrelevant, also check foi collisions 




■ it)-liM>p counter, ri-cliinhing flag, rS-jumping Hag 






■ ra-hull speed, rd-operaiions deck, m-matador speed 


Let A-6. LR2-0 LR8-0. F RO-1 T 2 LX-X-RN 




ic. ii .uid rg-laddcrs centers 


II B<X0,1,4) J Pi N Kit. J A; 




■ rl-pn/f collision loop preventer 






K LctA-8; L R2-ii. 1. KK-n. F RO-1 T 2 LX-X+RN; 




L RO-0. L R2-0; L HK-O; 


If HCiO.l.ti I !'. N ROj I A. 




' read tin* joystick synchronize to displa) 


determine the proximity ol the matadors hot spot with 




* ordet ■ fire. left, right, up 


penmate ladder s ilien execute one ' >t the following 
L: L R7-RE-X 1 1 >i M I- R~-RF-X. .1 <>. N I. R7«R( . \ 1 1 > 




A Pause; 






B Ifj]&l6jump F; 


see if hot s|X)is are within 6 pixels, pick the front.il 




1 i: Jl&4Jump ... 


image ilimh 50 lines slowl) this will remain 




I) II J1&8 jump II. 


constant regardless of cpu because ol the vbbnking 




E; Ifjl&l Jump 1; 


implied in the tor loop ever) second pixel of climb, 




• 


diet k lor collision with hull set climb flag 




• lastly, check it j moving bull collided with 


Increment operations deck level number, resei the 




• .i stationary matador 


got prize' Flag 




If Bao.i.n 1 Pi J A. 


heads up heads up note how we assign bod expressions 
individually to rn and r>). check both simultaneously in 




• it not alread) jumping, set the 'i am jumping' Hag, 


one 'if test this saves one jump instruction, keeping 




' jump quickly, pause toi .i rx-nod whose length is 


Within the 3 loop limit 




relative t<> the hull speed, check tor collisions with 






' hull*, while slow!) descending 


) LeiR6-R7>6; Let R9-R7 < -6; lfR6IR9JA; let A-7; 




F IfRK-l 1 A. LR8-1; LY-Y-25; F RO-1 T RQ N RO; 


ForR0-lTo2S LetY-Y-2; If BCX0.1.4) J P; \ RO; 




F RO-1 T 25 If BOO, 1,4) J P; IV-V-l. N RO; 






L R8-0. J A; 


Lei R2-1; Let RD-RD+1; Let Rl-Oj J A. 




" return to reading joystick if move would c.iuse -.lipping 


matador collided with 3 bull, move him oft screen 

set gored' flag. 




G: If X> 8 ) ). J A; 






H II \ < 512 1 K. J A; 


>: PRO-IT 15 LX-X-15; LY-Y-15; 




'test the i .nit climbing' flag, reset lumping Hag, 


L R2-0: L R6-0: L RH-O; L R9-0. L RO-1; 1 A 




"and select proper ladder 






• 


end AMAL 




I If R2-1.I A; LKH-O; 













from within BASIC. In our situation, we could also stop the ■effort 
simply by toiling to recall "Synchro". 

Ihis is,i good time to note a point which the otherwise extensive 
manual does not. Both the apostrophe character and the asterisk can be 
used to create a comment line when in the AMAL Editor. What is not 
mentioned, however, is that RO UpptTCPS- may appear in the 

comment itself! 

Let's study another AMAL channeL This one is dedicated to prize 
collection There are four ol these ilso 5, n, 7 and 8. The prizes only 
'move' when skill levels are reset. However, we want to handle them 
within AMAL because AMAL presents a very convenient method for 
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detecting Collisions. When a collision is delected, we want instant 
substitution or a score image for the prize image, table 4 is part ol 
what is seen when the file. OLFAmal.abk. is loaded into th. 1 A MA I 
Editor. In only five lines of code, a prize hob is fixed, collision with the 
matador bob is checked, its image swapped on the display it i collision 
were detected, and the score incremented in accordance with the 
current skill level' 

"RK" i> the horizontal coordinate assigned lo Bob 8 in BASH. You 
will Bee this is a randomly generated value I nless we are currently 
colliding, we jump to label it Else, we will wail tor a vertical blanking 



interval and rdoopback to label A "H". is another AMAI command 
Here »■> sit' thai xhv wilt/ action available if &n expression evaluates as 
tnir is tojumfA Dtfs isan AMAL Idiosyncracy ih,it took me quite a 
ivluli- to become accustomed to. 

"Pause," another AMAL command, performs the same function 
.is w .in I ok i does inC It synchronizes lhec*ecutiono) the program 

with thi" vertit .il blank interval, the same time quantum in any and all 
Anugas At label B:, we call the AMAI. Bob collision tester function, 
BC(). on this Bob, with the matador (channel 0) It none, pause and 
reloop. LUe. set a (lag to prevent > collision loop. 

The 'A' on the last line is the third AMAL 'magic' vanable. It 

refers to Ihe Image number tor this Bob as it is found in the Sprite 

Bank, or bank*]. "RC" is a value we set in BASIC to represent the 
current "skill level" Lor example, it this line of code is reached, the 
"Bag ol Cold" prize will suddenly become a large "10" on the display 
II you were to load the tile. "Ol ('Sprites abk" into Ihe Sprite Editor, 
VOU will observe each image as you punch in an image number. It 
follows that this is how vou edit them. 

"KM" is the score printed on title bar The algorithm seen here 
increments ihe lowest level by 10 with each prize, and the highest level 
by 90. Note that in AMAl . ill operations evaluate strictly left to right! 
Parenthesis are illegal 1 The "HP" variable is used only in channels (the 
uppermost deck] When R p is set, it tells BASIC that the user has 
attained the top deck, mi that BASIC will bump him to the next higher 
skill lei el 

Linallv. let's examine the Amal channel dedicated to operating the 
matador figure in response to the joystick Begin by giving your 
attention to Ihe comments contained within Ihe code in Table 5 This is 
now becoming s,-ii- evident lo you, and much less external explanation 
i- required 

Remarks Regarding The Matador Channel 

In addition to the previously mentioned 26 global variables, "RA* 
RZ", that may be shared with BASIC and all other AMAL channels, 
this Code Illustrates the existence of 10 additional local AMAL 
variables thai exist m and are private to each AMAL channel in use 
I hese also bear hardcoded names. "RO-R 1 * ". and like the RA-RZ 
globals, may contain any 16-bit signed integer 

Ihus far, we have ahead* learned seven of the AMAL com- 
mands 1 et. Move. Arum, lump. K. Pause, and For. 

Among important things to note are the Lor' loops Lor.. To. 
Next" is abbreviated as F, r,andN AMAI autornatkalrydoesa 
WailVbl, or Pause, with each iteration ol an FTN loop! This causes not 
Only remarkable smoothness to the animation, but helps render Ihe 
CPU speed irrrelevanl! The liberal use ot Wait Vbl or Pause Instructions 
helps assure your program will run at approximately the same speed 
regardless ol whether the u-cr has a 7mc 68000 or a 33mc 680401 PI 
(I veryonc learns this thi' hard way!) 

It should be apparent that we could easily substitute "For" loops 
Operating on an object's X and Y' registers for the 'Move' command. 
Because ol the automatic Pause done al the end of each iteration, the 
former scheme is usually superior, Asa matter of (act. whenOI I is 
run on .m accelerated machine, the bulls' running speeds can be 

isistent Ihis happens to add a little '/est to the game play lor 
this reason. Ihe 'Move' command has been letl in there. 

Back to our algorithm: When jumping al F . we jump instantly 2^ 
lines, but we Moat' at the top (or the duration of "RQ" VBIanks. Then, 



n e .less end one line per iteration, checking for collisions all the while 

Important! 

A reminder lh.it while in AMAI . Ihe If statement brook_s no 
'Else'. Each test is a "soloist. ' ,m,l sHivrss may rtSutt Oflfy m A "lump" 
rnsfrucfitnl 

I'a\ close attention to the fact that the matador channel has its 
verv own X. V. and A variables which are hard coded bv AMAL with 
horizontal and vertical coordinates, and the Sprite Bank image 
number, re sp ect i vely This provides enormous power With tew lines ot 
code! 

A Bugll 

I have been able to document one bug in AMAL to date Usually, 
there is a workaround Ihe programmer Seems to he limited to three 

"Jump" instructions within some undocumented length ot code. 
hailing to abide this renders an absurd error message 1 his explains Ihe 
Mk key Mouse(tm) algorithm used al label O:. I had to figure a way to 
eliminate one of my Jump instructions, and it was done with the aid of 
a trick described in the AMOS manual. 

O LetR6=R7>6; LetR9=R7<-6; |fR6llv9]A; 
"R7 > 6" must evaluate TRUK or FAl SL Ri> is therefore assigned 
either -1 or ll. "R7 < -6" must evaluate in like manner, and R'» is 
assigned -1 or 0. Then, il either R6 OR R9 is true, the matador is not 
reasonably centered with the ladder, and we "lump" back to Ihe Start 
Ol the program. Previously, I tried to code this with a pair o! "IP" 
statemenls. each ol which required a "| A" putting me one over the 

"Mystic Trinity Limtv 

Lei's leave the Subject of AMAL with a request that you take 
Special note ol just how tew lines ol actual code are required to do so 

much! The commands are indeed finicky, but there are very lew ol 

them lor you to master I he results are well worth being 'deviled' a 

few evenings 

BASIC 

! BSth/i we reach the BASK code itself. I his is very simple, since 
the "brain work" is largely contained in the AMAI, programs. Study 
the comments carefully. They are not in proper BASIC format, because 
I have used them in lieu of writing out notes in standard paragraph 
form. It is far easier lo read explanations when immediately adjacent to 
the code under discussion. 

Besides, it is not intended that you slavishly type this code into 
your AMOS Editor. AC's editor will make this complete file available 
to Ihe reader in the best possible way. ^ on may also expect to see a 
compiled version on Portal et al sometime in the future Let's have a 
gander at Table 6< 

That's about all there is to it' All these tiles, stripped of their 
comments, and despite the inellmencies of my programming 
techniques! s "ll total Only 7626 code characters! Also, incase you were 
wondering Ol l : \ background music is,i SoundTracker module 
borrowed from a Portal library and reformatted with the 
SoundTraiker2_ 1 AMOS accessory Ihe command 'Music 1' starts Ihe 
play back and Music Off stops it 

The Sam pleBankMaker. AMOS accessory converted all the RAW 
digital samples (as playable bv "Sound" from t'.RAMMA SOFT- 
Vt ARE 1 ") to the form required by the 5AM PI AY command The 
Sprite Editor allows eas) conversion of IFF icons or brushes into 
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Sprites and Bobs should you prefer using .1 more potent paint program 
lo the Mimewh.it restricted editor. You will find that, thanks to the 
AMOS language and several o( the many PI) utility programs out 
there* your imagination is the only limit to what you can quickly 
produce on your Amiga. Afl far as hours of enjoyment are concerned, I 
can think of no greater value tor so few oJ vour dollars than AMOS 
T me. C will permit creating programs with faster searches, M>rts, and 
associated grunt work, and a C compiler is another great "hang for the 
buck " But if visual and audio thrills are important to the task at hand, 
AMOS is the way logo AMOS is also simple enough that you will be 
up and running in a very short time As a bonus, you don't need an 
accelerated machine with multi-megabytes of memory to fully exploit 
ii 

I >>r you experimenter types (Mil there, AMOS provides a number 
ot ultra low level commands that permit direct ICONS to the CPU 
registers out of BASIC! We will save them for another day! 



Table Six 



* OLE . AMOS by Thon ■. (TOMESHI 

Reading. Pa. October 1992 
Design by John G. 



Note; T 



vv readability . the cotiments are not 
gal- 



Load Iff -01e/TiUe.pic-.2 
■ ' ' ■ . pic',0 

--•s.abk* 
Load 'Ole/OleAmal.abk" j Dit: 
Load •Olo/Olesarples.abk" ; Dit- 
Load -Ole/OleMusic.abk" ; Ditto b..- 



Si :■■!.■;: 2 

: 

Aut ■' ■ 



Bible. 

; Starts titli ;c. 

; Prevent further automatic display- 



Screen Open 1. 320,200.16.Lowre3 ; Allocates screen for 

n copy To 1 ; second background 

pic. 

Get Si - Flesh Ofl : Hide : 

• 

Screen ; Makes this an 

Fade 1 ; bo -■■ to black. 

Screen 1 : Makes this current for future operations!. 
Synchro Of f ; Utilized to detect collisions via AMAL 



- 



; For horizontal coords I idders 

; For horizontal co> : 1 ; 



' All bobs to be assigned an AMAL channel must first be 
" declared. We don't care where they are drawn at this 
■ time. Since Auto View is OFF. the draws are ac 
• being done in the 'invisible' current screen 1, 



' Bob is the matador . 

■ Bobs 1.2.3.4 are the bulls; 

[torn the bottom deck to top. 
' Bobs 5,6.7.8 are the prizes. 

from the bottom deck to top. 
See Proc SETPRIZES 

BobQ. 250,250.1. 

Bob 1.15. 296. 2 : Bob 2. 304. 246.2 : Bob 3. 15. 29-,. 

Bob 4, 304.246.2 : Bob 5,250, 250, 10 : Bob 6.260,260, 10 

Bob 7, 270, 270. 10 : Bob 8,280,280, 10 

* Bobs 9. 10. 1 1 are the ladders, bottom deck to top. 
' See Proc SETLADDERS 

' Bobs 12, 13, 14. 15 are the Remaining Matadors icons. 
' See Proc SETICON5 

' Hakes the mandatory AMAL channel assignments. 

Channel To Bob : Channel 1 To Bob 1 
Channel 2 To Bob 2 : Channel 3 To Bob 3 
Channel 4 To Bob 4 : Channel 5 To Bob 5 
Channel 6 To Bob 6 : Channel 7 To Bob 7 
Channel 8 To Bob 8 

• Purpose of global AMAL variables 

: otr. BASIC 

* RA=BULLSPEED. RC=Skl 11 level (0-81 . 

• RD*Operat ions deck (0-31. RE. RF. RG are la 

' RH, RI , RJ. RK are prize X's. RL*Got prize flag. 
' RM'SCOre. RN»MATADOR SPEED. RO=Gored[lag. 
' RP=4th Level done flag RQ'Jumping delay 

■ PRaScoie increase. 

' Sprite Bank image Nos. for prizes at each of 9 levels 
' For Information only. 

■ BAG=I0 : BALLOON-11 : SHADES=12 1 CDHE-11 : CANN0N=14 
' BEER. 15 : LOCO*16 : HOTDOG=17 : WHISKEY* 18 

' Sound File Sample Bank Numbers - Used! 

BOING-1 : CROWD=2 : GLASS=3 : HIGH=4 : HORN* 5 
LAUGH=6 : OK=7 : PR!ZE=8 : Yf-" 



■ Following is the "maim ) " ; * 

The next instruct ions are g e and done when 

game begins. 

Ink 4,5 ; Writes blue over white text on screen 

1. 
Text 2.9,-ole! Amos 1.0" 

The AMAL code is thus assigned to the AMAL channels. 

Amal 0.0 : Amal 5.5 : Anal 6.6 : Amal 7,7 : Amal 8,8 
Anal On 

Proc 5ETICONS ; Puts little faces in the title bar 

; of screen 
Volume 63 ; Loud sound sa:; 

; Resets AMAL register RD. ; : ■ 
Amreg(Asc<"D")-6S|»0 

; Resets AMAL reg. RL. the 'got prize' 
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AmreqtAsC'- ' 
Amre'i 



• rooid 

'gored' 



; Besor the -scoi 

- . - 

■:-:■ 
A=5 : ■ ■ • I 



.'•'5 tO 

ntly- 



' An im channels cai. I 
■ 

tw ' he bulls. r.d man 'off 

screen' 
• to .1 plays. To be surp our bulls 

, ■ ■ som the edges of th<- :. 



' 






>FF. rcstar 

■ 



' or nex , Thi» »o* 

' star; B ■■..-'- 

■ set ai * • ' '-■•■ l 

:dent ly buffered 
■ < ;ets. 

' Simple scheme forces 20 sees of n 

.000 
Music Off ; El 

Auto View On ; Current screen now vis iblc. 

. -. is the start o£ the mam loop. For each of 9 

■ and 
.'.-■ ' - * 

; c mg tc r i ■ 
•?n to the front . AJ 

• curr- tan text on i 

' flush it with the sprr > alette. Incaseyou're 

' wonder ing, this w ■ •■ it visible. We fad' 

' over a period ■ ■' aur voice tells the 

• user it 's OK to pi i . 'ASIC now, 

• not in AMAL. 

For a=0 To B 

Am,). ■ . Off 2 

Amal Off 1 ! AM 
Screen To Back 
Screen 

Ink 4.1 r Set3 blue over tan when writ :r>] : 


Text 52. 125. "Press Fire Button Whi • - iv' 
Fade 5 To -1 : Puts color into the display 
(flushes) 
Wait 80 
Sam Play S3. OK 

Do ; Walt for user to tn.-: 

; in a nun :,dly Ion. 

■n Exit 
Loop 

Turn 

■ • [ f : ■ : until 

t front . 



Ll receivesthegr.il 

... '.0 ticks for that 

■ . • urned of f some AMAL channels, 
them back on. 

.' ' ' ' 



* to complete. 

i 
■ n( r -■ 

' reg - 



tO ANAL Ln 



■. no visible changes. 



Wait 

: A.t-11 2.2 : Amal ■ 1 4,4 

: Amal On 1 : Amal On 2 
: Amal On 4 
- ■ 65)=B 

-lop a short . sweet, suitable algorithn ■ t-t.o 

; >*s the skill levels tnci 

'RA* ) . I discovered 

h€ top 

... 

.owly. A ■.....: reaches a certain 
ip e o d. 

* yo'. 

■ r ■• ■ 

* the bul 1 does a qw ; m o value 

■ kepi "RO' as examining channel AMAL code 

* will reveal. You wi 1 1 exj." .: th these values to 
' suit you: - 1 am not p.c 

.-onto: 

' ■ ■ ' ■ ' 

* givi 



spee: 

Amreg(Asc("A")-65l-SP 



■ 

Amreg (Asc ( *Q" i 

Else Amreg i ■'■ " " 
Bnd 



?0-48 
Of 9 



:■■ 



■ 



•^an slows 5-2 thus: 
; 554431222 



■ 



at return random horizontal 

■ 
■ ' .- ■ ■ 



in 



the center of the s-i"'- (: :ng the current 

. sending screen to the back, 
we make this screen 
momentarily, so we can qui'-- .: to black tor 

eyes. Finally, wo 
again make screen 
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Proc SETLADDERS 

■ 

■ 

Auto '- 

>nbegir.- »ch iter.it ion. w«* first call 

...... 

■ 
be set by Channel li ■ ■ • i ■ • 

' SB!.' 

• moving 01 .;■•-'- 

• D»c* cremented with the "NEXT B" state- 

• tobt ■ .-•.- 7!.o 'gored' flag, AHAL register. 

' i lurther act ion- 



: 








' Vbl 


Stoi 






■ 


"O") 




- : ' 


1 
















i 


LO 






: Dec b 






■ 




65) 

LL 


D 








Then 


































Sam i 
















■ 








■ 









. ..,...-:. 



r Then we have no more lives 



HAL register 
. and make a 
p value if so. We 



|Oi 
' RP to set 

■ 
do 

ng ttje last score in RR. RM always hai 
m AHAL prize char: >.<edonly 

do 
' a fast and snappy "compare" to see if the matador 
. ze. 

w score > old score 

aglAscCR* -■ - -c5> 

. ■ ■ 

■ AscCHM-65) ) 
r make old score 
score 

-:•• ) -65) 



' And . wo check on the status of AHAL register Rp. 

./by the AHAL channel belonging to the 
' uppermost prize. If this has been captured by the 

• he has completed a level . Reset the flag, make joyful 
' noises, and fade out the screen, (more code would be 
' u: • * 

If Amreg(AscCP") -651 = 1 ; top deck's prize hit 
Amreg(Asc('P")-65l=0 
Sam Play S5.H0RN 
Play SA, CROWD 
SO 
Fade 10 
Wait 200 
Exit 
End II 



Loop 

If A<1 
B>10 

End If 



: Mates with 'Do' 

■ we are out of lives (icons) 
: fool B into exceeding . 

; thus dropping out of the loop. 



■ If. w; ut of the B loop we find the value 
of 

• B to have been S. then the user must have successfully 
' completed the game. Reward him with some sound of - 

fects. 
' a slow fade out. and then quit the program with an END 
' statement to avoid the loud guffaws that otherwise 

• ru .•- 
' when leaving the program. 

If B-8 

Sam Play SF.HIGH 

50 
Sam Play $5 .HORN 
Sain Play SA. CROWD 
Fade 15 
Wait 225 
End 
End If 
Next B 

-._• drop out the B loop for any reason other than 
that 

• B-8. it must be because "Slow Hands" ran out of matador 

• lives. ie: he screwed up. Give him the raspberry 
' before fading out and returning to the workbench. 

Sam Play SA. LAUGH 
Wait 50 

Sam Play $F, LAUGH 
Fade IS 

Wait 225 

End rReturn to the WBench. 

■ In this procedure, we develop 3 random locations from 
12 

' to 30B at which to place the hot spots for the 3 
ladders 

' (keeping them entirely on the display) . Their Y 
' coordinates are fixed at 96, 146 and 196, The X 
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* coo: ire stored .md loaded 
Into 

' the global regis' ■ IP and RG tor use by AMAL. We 

' use a littlotnckto assign the lowest ladder first. 

* We also make doubly certain th**' ■ ro to 
' begin with befor- 

Procedure 5ETLADDERS 
Snared LADO 
B-196 

For As TO 2 
LAD(A)=Rnd(2 
Amr«g(A*4)*LAD(AI 
Bob A. 9. LAD (A) , B- (A'SQ),1 
Next A 
Amreg ( Asc i -D" J -65) ?0 
End Proc 

' We place one pri;-.' or 

' position 

' Note this Procedure takes an argument that depends upon 

' the uki 11 le 

* array and are fed . RJ and RK 
' for use . . .ng 

' certain RL. the 'got . 

Procedure SETPF I ZES 
Shared prized 
B=196 

For A=0 To 3 
PRIZE(A) -Rnd(296) -8 
Amrttg(A*?)*PRZZE 
BobA-S.PRIZ! ^50), LEVEL 

A 
Axnreg(Aac(-L-)-t' 
End Proc 



' we use this 1 1 >c»? 

* title bar. We us< 

* our life easy when it come' 
' matador . 

Procedure SETICONS 

For A = D To 3 
Bob A- ' .0,2,9 

Nexl 
End Proc 

' This Procedure is for completen 

* nothing but consister.' 

' exact cente: of *• ■ ■ : 

Procedure SETHATADOR 

Bob 0.160.196,6 
End 



out " ' 



■ 
i 



Listing One 



■ the matador 



peed 



- 











L R0-0r lr; r 

B: If 

■ 

: : 



" lot' idor . 

(0.1. 4> 

* 
■ ■ - 

-peed. 

F R0»1 T 2b If BC(0. I . - 
R8=0; 

■ 

! 

X < 312 J K; J A: 

R8-0; If RD=0 J Li 



■ pick 1 e- 



-de. 
1 4) J Pi 



- ■■ .■ ■ ■ 



■ ■ 
pert inate lade--- 

L: L R7 : RE-X: J O; 

RG-Xi J 0; 



{continued on i^se 68) 
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Technical Writers 
Hardware Technicians 
Programmers 
Amiga Enthusiasts 



Do you work your Amiga to its limits? Do you do create your own pro- 
grams and utilities? Arc you a master of any of the programming lan- 
guages available for the Amiga? Do you often find yourself reworking a 
piece of hardware or software to your own specifications? 

If you answered yes to any of those questions, then you belong writing 
for ACs TECH! 

AC's TECH for the Commodore Amiga is the only Amiga-based technical 
magazine available! We are constantly looking for new authors and fresh 
ideas to complement the magazine as it grows in a rapidly expanding 
technical market. 

Share your ideas, your knowledge, and your creations with the rest of the 
Amiga technical community — become an ACs TECH author. 

For more information, call or write: 

ACs TECH 

P.O. Box 2140 

Fall River, MA 02722-2140 



1-800-345-3360 



Programming the Amiga 
in Assembly Language 

Pari VI - Gadgets, Strings, and Other Things 

by William I'. My 



In IhiS article III discu— gadgets, I re.iting ,1 string gadget, using 
in.- itOKDi-K structure and text, how to scale numbers, and use the 
Intuition message structure to make a zoom routine. We'll write a 
Mandelbrot /Juii.i program to He .ill this together 

Mi nil Macro 

But first, some old business In tin last article <V2 1) I discussed 
menus, items, and sub-Hems; this code took up .1 lot ol room in the 
program and 1 suggested you devise youi own macros locul down on 
some of the repetitive work, I lere's How I wrote my macros— included 
in the MENU.) li-tine, on this dt-k 



■UDHiaa. aK*D 
inamiOitaU. ate. 



tKfEXTI," 00. 
















$\l 


tula 


■ana I*anu0, MBtil. ate.) 


M 






|\J - .! 


tlcla' 




:nK 


■\l\" 


i\J - Bait 


■an. or , , 




OC.L 


xl 


iV» 


laft adaa (0,100. J00...I 




ace 




l\l 


Iflaea i tl-an«l>l»d. t0-dlaablad> 




:r: 


■\y.- 










OC.L 


a 










DEC 












oc.* 


\*.0.»0.C 


•5 








DC.L 


UR1U 






UUla polntar 




DC.L 
DC. If 


VlITBM 
0,0.0.0 






,flrat Ilia KncCWM polntai 




■vntrc 










UTITU 


DC.B 

■vprK 


VI. 






iraaarva apara let lllll 



The first pari <>t the maCTOCheckfl 10 See it there is another menu 
title; if si), it make- (his the first entry and if not, it makes the first entry 
a NULL The next entry is the left-edge followed by a top-edge of 0, 
The width is set to 90 and the height tsNUl I Your menu ll.ig is next 
and the macro then tills in the pointer to the menu title and the tirst 
Item structure I he lour unused words complete the structure. The 
menu title. \out second parameter, completes the macro, This macro 
would be used as; 



DC. i. 



ic.io. jo...i 
Iliac* 



VI 



'UV 



OC.L 

bay' or 



aar/j Itaa aubltaa polntar 



DC." 

me 

OC.L 

■ax 

DC 

OC.L 

■ax 

OC.L 

polntar 

im: 

DC. I 

kay, padding 

MX 
IK 

0C.» 

iv:, 

imc 

OC.L 

aubltaai street ura 
ncc 

:rv 
OC.L 

■0 

0C.M 
UITtXT 

DC.b 

■oda, padding 

0C.» 
OC.L 

tvmc 

U»UB DC.» 

ktaa uh 



ft.Vt.D0 

■««•.■' 

\« 

•v*',-- 



\invrr 



'WV 

\">,9 



0,0 






■vi-,' 



1.1.1.0 



o.uavn.s 



,lt,\1 



tl.< 



'■I 


tola ltaa 




|\)i 'It 


■' 
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Notice the 1 and \1TNI I used to make I he heading Ihi- i- the 
menu that the OPI NMEN1 macro looks for, 

Id in M. u mi 

Next, and a little more complicated, is the item macro \ovv we 
have to pass a few more parameter- Here- one w.n to write it 



A- with (he menu macro, either the next item or NULL becomes (he 
first macro variable. Tins is followed by a left edge of 0, your top 
location, a width of 130 plus room for the command key and symbol. 
and a height ol 10 Your flags lor this Hem are next, followed by the 
mutual exclude, it any, the pointer to the I lexl structure, your 
command key. it am. and the pointer to am suhitem Structure, A next 
select ol ti finishes this part. The 1 1 ext portion includes a left-edge 

it HrCK WIDTH to always allow fortheJieckm.uk The Item 
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Mme completes the macro. An ex ample of this macro would be: 



3) String ($4) allowscnlry ol a siring or a long integer number 



nuiTu lamii 

tvtim veto 



),-itC(MBf,,e > i».,i 



The macro tor creating subitenis is verv much like the Item macro 
and passes .ill bm the last parameter. 
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These gadgets <an be highlighted (usi like menus and can have text 
associated with them You m.<\ design youi own images for the 
regular and highlighted gadget or em lose them in a border ill save 
Image-making For a latei article* but we will use a border 

Borden 

The border (unction of Intuition graphics wiP draw lines between 
any given aeti oi coordinates relative to the container they're inside 
The border structure i-> in the second half ol Table II The left-edge and 
the top-edge are offsets from the container box so they're usuall\ 
negative numbers I lie draw mode b either I A Mi or i o\ii'i i\ii \'T/ 
JCOR l ei your gadget know there will he a border bv Including the 
border structure pointer in the gadget structure In addition to 
attaching a border structure to your gadget von can draw lines 
anytime using the Drawporder function Set up this function with: 

ah RASTFORT 

Al ■ BORDER STRUCTURE POINTER 

ix) - \( oordinati offset 

1)1 Y COORDINATE OFFSET 

You .ould draw the same lines at several different places on the screen 
by changing dO and dl . 

Gadgets are structured items as outlined in Table I. As with most 
major structures, the first entry is a pointer to the next gadget's 
Structure The locations lor the gadget are next followed by the > ariOUS 
flag options Hags tor gadgets are 

OaJCHCOOI (IOi - tcaajl— pi tM euraori uiad (or ■tuna gadgata 
otniiKi 1 11 1 - diaa ■ boa around iba gadgat 
OUOHIWOI 1 13 1 - a blgbllgbtad laaga or bordar 

m highlighting 

uaal oat load laaga 

- top-adga la lalatlva CO bottoa 

- lafi-adga la ralatlaa to rlght-adga 

auLHIDTII 11301 - width la talatlva to "lodo» width 
aULHIOrt IMOI - balght la ralitlwa co window halgtt 
HLICTOO ll*0) - ataita on and blgbllgbtad If logglad 
CUkDOOllAILtD <$100l - itarta oft and dlnablad 



OADCaMOTi ID) - 
OADOIaUOl (II) 

ouLKorrcH (in 

□ULBIOBT 1116) 



Notice thai I have subitems starting 65 spaces out from the menu strip 
and Ihey include room for the check mark and command key. An 
example of the Subitem macro would be: 

luniuiiTDi lODraiiTDrtsraiTmo.- n -.aawninaorriirfMi, o.lil). in 

These three macros are generic" in that they all produce the 
same si/e and style menu, item, and subitem. You could REM portions 
or change parts of any macro, but be sure to keep the original tatad li 
you've got your own macros, by all means use them, and adjust the 
program accordingly. 



To better understand the GREI. options, it you Set the height to 9 
the gadget will be nine lines high, but set height to -50 along with 
CREtHErCHl a^i the gadget will be SO lines smaller than its element, 
the window A u idth ol -100 combined with GRELW1DTH will 
produce a gadget 100 pixels smaller than the window width In the 
same manner. GREI RrCHThaS the Starting point relative lo the right 
side of the window and GREI. BOTTOM has the starling line relative to 
the window bottom. These flags let you place a gadget inside BR) lize 
window using any screen mode (320 X 200, 640 X 200. etc t 

The Activation (lags produce desired effects and further define 
the gadget Activation flags are 



Gadgets 

Now let's see how you can communicate with your program by 
iisin^ gadgets. Intuition provides several System gadgets —closing. 
front/back, drag, etc — but you can also custom-design your own In 
general, there are three types o! gadgets 

1 ) Boolian (SI > - ON /OFF button 

21 Proportional (S3) - a sliding knob inside a container 



ULmin llll • aetlwa whan LM> la talaaiad o-ar lb* gadgal 
QADCIWttDlATl <|J) ■ know laBadlalalf whan gadgat Ml act ad 
DTCCUCOrT llll • mala ■ laguaatai gadgal go away 
WIL MHJ PH llll - (ollowi (ba aouaai foi piopertlooal gadgala 

lICamOIUIDi 1110) . ad)ni( Iba vlDdoar bordar 

LirTMUaU 11301 • adjuat (ba uliido- bordai 
mNDD lllOl • adjual (ba wlodoo botdai 
tOTTOMMUan IIIOI - adjuat ihm window bordai 

TCOOUtlLICT (flOOl • loggia CmiOTT ■tataa 

miKOCOrm IIJOOI • EWM fmify a atilng aatry 

ST*I«a*:airT 1IIOO1 • rlgbi juatlfy a atrlng aainr 
LOsnilT (IIOO) • atllnfl amat ba • loog Intagai 
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II100D) • 

ifJOOOl 



'.«» "Ill t* an ilmaiti !■!»» 
Cbm la • Ooolaan info HiuCIui* 



The BORDIR options may be used to change the si/<- of ,1 
window's bordci so von can place your gadget then 
ux.i.i ism n i isusedtaconfunction with the st:i i-.t irmlag 
STRING! i VTER/RICHT will position the placemenl ol your string 
information as you enter ii in the gadget box— like the REN wu 
function in Workbench I ONCINT lets IntulHon know your string will 
only be .1 long integer (32-bfts, signed) 

Next in tin- structure 1-- the gadget h/pe. ITus is followed by three 
pointers to an hnage/borote structure, highlighted image/border 
structure, and an IntuiText structure. After the mutualexdude is a 
pointer to Further information lor proportional or string gadgets. Vou 
maj Include a gadget number todefinewhich gadget is in us*- as well 
as your own itnicture pointer al the end ol the gadget structure. 
Intuition will disregard these last two entries 

Various lags, activation Bags, and structure elements must be 
combined to produce the desired results The major combination- are 



act 1 VATIC* 

11100) 



ITHKPIU 



■fRtHLBCUm 



■VMCTH 'I"- 1 
ixwnwii (in 
Kinn poivtu 
oucaoiKat im 
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For this listing all the gadgets will use their own shape and be m their 
regular locations, so I used a (lag of SO and. since I wanted to know 
only when thel.MB was released, 1 used an activation flag of $1. 

STRINCINFO 

If your gadget is a siting or proportional type you must also 
include an info structure. Since I'll only be using string gadgets, 111 
discuss some of the items in the stringinto structure outlined in Table 
u 1 sch string must have a buffer when the string will be stored and 
this buffer mn-! be Mil terminated. You may also have an optional 
undobuffer where the last string entry can be recalled using -wilt . \ 
Q Since only one string gadget is active at a time, multiple gadgetscan 

share the undobufter In this article, though. I'll have separate 
LUldoOufters tor each string gadget. 

The maximum numbers of characters allowed in the butler must 
also Include that NUU terminating zero Intuition maintains the nexl 
several fields but you can look up their values as ,m offset from the 
stnnginfo structure If you're going to have a long integer string 
gadget, you must not only set thel.o\(.l\l ($800) activation Bag, bul 
must also include the initial long integer in the stringinto structure As 
this integer changes, you can look up its value. It vou have an alternate 
keymap. set the AI.TKEYMAP (SI000) activation flag and include its 
location BS the last item in the stringinto structure 

STRGADCKT MACRO 

\s you can see. k takes i lot of cixle to define several string 
gadgets I isting 1 will usesi> gadgets and would require 168 addi- 
tional lines of program code to describe ill ol them Again, we'll use 
macros that will shorten the work tor us Since there are so mam string 
possibilities, well have to pass 12 items, but it you want vour macro to 
be more generic you could cut down on some of them. \l\ string 
gadget macro follows the format of the menuitem macro 



■MOBTMHJOm HOI 

II 

■ <l • mi» atria? gadoai 

irwc ■')■. ■ 

■Mlog g*4gat um' 

DC.L M 

i\> • oaii atrlng ga4jat 



>!■ f.j- affoft 



U'.' 



. ; 



Al • »«*- 



adga of tax 



i>» • "iflih 



. •' - balgbt 



X.M 

ECU 



UMS.XS.Y) 



Ml 



tflagt 



DC.L 
DC.* 

DC.L 



tart 1 vail on 

DC.L 
01 i . 

DC.L 

DC.L 

• of cbaractari 
dc.« 
DCS 



MIWO 



mi 
oftaata 

Ulat 

MNIVTl 

dc.i 
•c.* 

DC.L 

:uwa dc.b 

apaca foi am 

mm 

Mnrru 

M.B 
tuftai apaea 

K.S 



M1TW3T. MO 



Ml 



At ■ 
i MO • Imitualnclad* 



I'll - Idler.. 

■Ml 



\UQrm.\ltMDMCmi fbuffar. uadotMlfar polBiata 

O.MS. 0,8, 0.0.0.0 

o.c.o 



DC.l 
DC.L 



-S.-S 



1.0.0.5 

ispnmi,( 



•■,:■., 

ipoimar to coordl- 



X.» 



D*.B 
ubdobvffar •[■*!• 

K.I 



0.0,M>4,0,\t>a.\7>l,0, \7,4,0,l 



0.1.1.0 
0.-11 

O.MKAJO.O 

'1-0 



MS-; 



MJ-1 
I 



Let's look at this macro in a little more detail Ihe tirst Item is 
either the pointer to another string gadget or This is followed by the 
locations tor vour gadget. Hags, activation flags, and the type gadget 
(1) Each gadget has a border pointer, no highlighting pointer, an 
IntuiTexl pointer, no mutuatexclude, and a stringinfo pointer Vour id* 
follows and there is no pointer to m\ optional structure. 

The stringinfo portion has both a butter and undobutter pointer 
Characters will star! printing at position i> in the gadget box and vou 
define how many characters there may be The border offsets are two 
pnels to the left and two lines above the gadget container I here are 
In e pairs o| n -ordinate- to get back to tin- origin Ihe five pairs are 
(0,0). (your width*4,D). (your width+4, vour height- -1). (II. youi 
height --II. and (0,0). The IntuileM starts 11 lines aho\e the container 
Space is reserved for each buffer and i- one byte less than you want 
phis the \L1 I terminating 0. 

The easiest wav to include vour gadgets is to add the pointer to 
the first gadget to your window structure, offset 16, Vou can remove 
the gadgets by replacing the pointer with a NULL; Ihis is what the 



Voiume 3. Number 2 



1/ 



REMOVET.ADCKIS macro does All of lliese maims and the 
appropriate flag values have been added to Ml \i. i included on this 

disk 

I In Prii:_'f;nii 

Now let's pui all ol this knowledge to us.- m .1 program. In the 
last article I talked about the Julia Set .mil showed you how to draw it 
using double-precision math, Inis time well draw the Mandelbrot Set 
using scaled numbers rhere will be a string gadget for each ol the 
variables— -Xleft. Xright, Ybottom, Ytop, |uliaA, and |uliaB;youcan 
put whatever values you want m these strings. Menu selections will let 

you pick a program to draw either Mandelbrot or Julia, go back lothe 
coordinates. or qui! the program. Another menu selection will let vou 
pick 1 maximum iteration count from M (the default count) to 1024. 
During any part of the drawing you can use the LMB to pick the 
upper-U'lt corner ol a ZOOtn box. drag down to the lower-right comer, 
release the button and recompute new coordinates to draw. The 
original values in the string gadgets will not change I know there are 
quicker ways tn dnm the Mandelbrot Set but this is a program 
designed to show you how to use menus, gadgets, and IntuiMessage 
lo review, the fulia Set was derived by continuously squaring a 
complex number and adding a fixed number to the result Keep 
repeating this until Ihc value ol the number exceeds 4« or you reach the 
maximum iteration count. Numbers that never exceed 4 are part 01 the 
Inlia Set and usually colored black. Numbers that exceed -1 are usually 
colored based on the iteration count at tlut point This process (3 
repealed tor every complex number within a grid. Remember that a 
complex number/ is represented as \ - ^ where 1 is the square root of 
-1, so i*i=-I. The real part of a complex number is the \ portion and the 
Imaginary part is the V portion The complex number / squared is 
(X-.iYr(X*iY)orX fl 2.2i\V-i'2V: Since i A 2 1, new 2 is X*2- 
Y A 2*i2XY; the new real portion is )X A 2-Y*2) and the new Imaginary 
portion is 2\> [ben (uliaA Ai\d Hili.ii: are added to the real portion 
and Imaginary portion respectively. 

The only difference between the |ulia and Mandelbrot computa- 
tions is the number added to the new real and imaginary portions 
Constant Julia values are added tu the (ulia Set; continuously varying 
\ alnes, the Xcorner and Ycomcr are added to the Mandelbrot Set. Here 
are the two programs in BASIC to show vou the difference. 

jtoia an 

XttFTWiXBIOaT.liXaCAlt.lXBICtT.XLtFTl/14 

noircM. - 1 1 m* ■ 2 1 riciu. i ttof ■ tbottom 1 / u 

JUIIAA. -l.i:JCUAB-B;KAXCOCf»?.*4 

FOB B-O TO *4'XC0aft»<xi.irT>H>iiCAU 

FOB V-3 TO tC:TCOtMIB>raOTTOM>V*r*CALt 

*■ xcobmdi 1 ■• Tcouru 

FOB CO IO KJkXC00VT<UQa.A*AiMQ»-»-» 

ir a*oh.uqh»4 nun coiOB,Bo<rrnaiooTo wop 

B- 1 • A»B . JDLI AB : A.ABOB - MQH • JOT, I AA 
■R C 

LOOF:MUT V.l 
BMMUBOT ftT 

XLtFT. -Ji»IOIIT-J;«SCAtI-llJi:arT-IL«m/H 

rioTT«. - J 1 rrw. J 1 tkaui. 1 rrop - TKrrtoa ) /i4 
MKKomr-u 
FOB n>a TO («:XConna>xutPT>ii>xi;cALa 

FOB »■• TO *«:TCOB»1B.TBOTTO«.VT»CAL« 

A-XC0*JW» 1 B'TCOnOB 

FOB C-0 TO MAXCOOWTiABOa-A-AiBBOB-B-B 

IF AJQA.MOB..4 TWO COLOB_B0CTl«l'0OT0 LOOP 
B.J>A'B.»COIOf»iA.A»0B-B«O«tIC0Bmn 
■■XT C 
LOOF:NUtT V.H 

Two different ways to color a point are to AND the iteration 
count with #31 or to shift it enough to the right to get a value from to 



31. The lirst method may produce a jumble ol colors where there 
should be a pattern 

Si-nliiii: Nnnil.tr- 

When we computed the Julia Set I used double-precision floating- 
point nuinbers, but this tune well scale each number by multiplying it 
by a large motor and then use the registers tor regular multiplication 
rather than the slower MAI I IIITEDOUBBAS dp functions The scale 
in this program is2 A 29. The first step is to Convert the string to a dp 
number just as in the Julia program, but then use the MSCALE macro 
to multiply it by 2 A 29 (as a dp number) and then move il back to dO as 
1 whole number. This is done lor each string value and the scaled 
numbers are stored in XC, YC, JUL1AA, and JU.IAB. The difference 
between Xnght and Xleft is divided by 320 and stored in XSCALE; the 
difference between Ytop and Ybottom is divided by 200 and stored in 
YSCALE. 

It you pick the menu option MAND1 I MKOI. the Julia llag is set 
to 0; if you pick the JL'LIA option, it's set lo 1 TheCFM macro docs 
not use Wait since we want the program to keep drawing unless .1 
menu item or the zoom routine is picked, We also need the mouse \ 
and mouseY coordinate- so I rewrote thelTM macro as lollows; 
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Now lei's K o through I isting 1 in detail and review all ol the 
subroutines There are six include files necessary to run this program 
Even though we're going to scale numbers, I still used 
DI'MATHMACROS.i for division and to move multiple registers 
around. MULR is my macro for multiplying the unsigned values in do 
anddl with the result Ind2/d3. It uses shifts and rotate commands 
rather than the MULU function. ZMUL will be used to multiply two 
labels with the result in dO. The current iteration count is stored in 
register a2 and your maximum iteration count is in a3. Using registers 
rather than labels to store these frequently called values will speed up 
the program a little. 

"IM I is.i variation of the I'SI'I macro sol put their sign before 
it to keep the assembler from becoming com used. MSCALE will 
multiply a dp value in d0/dl by 2 A 29, return the result in dO, and save 
it in the passed location. BEEP will flash the screen when called, acting 
assort of a minor alert More about using it later Alter the libraries arc 
opened the screen and window are set up along with an initial 
maximum iteration count of 64. 

When you first see the program there will be six string gadgets on 
the screen filled with default Mandelbrot values You may use these 
values or click in any box with the LMB and change the values or vou 
can use AMIGA/X to erase the block, use r\MIGA/Qt0 restore the last 
entered value. When you've changed values, press <FNTTR> and then 
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change whatever other values you want. The Mandelbrot program 
does mil use 1 nil.) A and lultaB; (he [ulia program display is generally 
between -15 and l 5 in both directions tuilt- — you want to zoom in on 
.i portion of It 

The message cheek sits men patiently waiting low il you've 
picked a menu option I have it set to only react to the Project menu. 
When you choose either Mandelbrot or Julia the respective (lag is set 
and the program starts to compute the scaled coordinates Hie tirst 
Step is to remove the existing gadgets otherwise \ou could Still click 
II the Invisible box and gel a CUntOr along with the current string 
value — this does not make tor an interesting display The siring value 
in each nl the six butler*, is com ei ted to a dp number using the 

t ONVERTDP macro I discussed in the previous article The dp value 

is then scaled by multiplying it by 2 A 29; the scaled Xlelt value is stored 
in XC When the new Xright value is computed it's not saved Since II 
doesn't enter into the calculations, but the previously saved Xlefl Is 
subtracted (rom it. This difference is divided by 320, scaled, and saved 
BS XSCALE. The same procedure is followed with Ybottom except that 
the difference between Vtop and Vbottom is divided by 200 before 
scaling it Finally the luliaA and lulialt values are always scaled and 

saved 

Since thev will keep changing, the original XC and Yt an 
resaved as XHX and YUX"; tor each loop thev are also saved as 
ALOCand BLOC. The current count and sign flag are both set toO. 
Now check the value in Al.OC for it's sign; if it's negative, negate it 
and add I to the sign flag. Then use MULK to square the value 
Remember that this value Is actually ALOC'ALOCSCAI I'H.Ml 
Repeat the same procedure with BLOC and then add ASQR+BSQR 
ADDX.L will include any carry from dl*d3 when you add dOand d2. 
Compare the first hall of the number (in d2) to »S100000()l) which is the 
left half of 4'SCALE'SCALE If it's less, we'll go on to compute the 
new imaginary portion of our number. If it isn't less, use one of the 
optional coloring programs to fix the color, set the point, and then 
branch to 1 1\ 

New / 

The new Imaginary portion is 2' A LOO BLOC, but again, since 
each value is scaled, just multiplying would produce a new value ol 
2'ALOC*SCALE"BLOC"SCALE. So we'll have to multiply then divide 
our answer by SCALE to get a single scaled value Rather than 
multiply by tw'o and then divide by 2 A 29 we'll just divide by 2 A 28, 
eliminating one step l>i\ ision is accomplished using 28 right shills. 
ROXR.L will include any cany from the ASR.L of d2. If the sign flag 
contains a one the value in d2/d3 is negative Finally, if the luha flag is 
set. |uliaB is added els,- >. | (X_ is added, resulting in the new imaginary 
portion. 

Now the new real portion must be computed Its value is 
ALOC'Al OC HLOCBLOC Bui again, since each value is scaled the 
linal answer will be too large and must be divided by the scale We 
ahead) ha\ e the \ atues saved for ASQR and BSQR so subtract them 
and divide bv the scale usm>; 2'» right shifts, Add either Juli.iA or 
\1 OC and there's the new real portion of our new complex number. 

Increase count by one and compare it to the maximum count- 
both values are actually in address registers. If the current count is 
below the maximum, branch to AGAIN. If the maximum count is 
reached the location is inside one of the two sets so either leave it the 
background color or set it to the color or your choice. Then add the 
YSCALE to YLOC to get the next coordinate. 



At this point we need to check lor anv messages, you could 
decide to pick menuO, menu I, or begin the zoom routine II iheCFM 
macro does not receive a message the program branches to 
St ' MESSAGE where the down distance is increased by one and if 
we're not at the bottom of the screen Oh* program goes back to Ml .2. If 
then i» a message however, the program must check to see it it's a 
Ml \l I'll Kora MOISFBI IION. if n's neither, then again branch to 
NO_MESSAv,l 

If there is a Ml \LTICK then the menu, item, and subitem 
number are computed. In menuO you could select Mandelbrot in 
which OBK the julla Mag would be cleared and the program jumps to 
SI ART 1 ikewise. if you choose [uha the Julia flag is set and the 
program jumps to start If you pick Coordinates the program clears (he 
screen, doses the menustrip and window, then jumps to the 
MAKE_WINDOW routine where the window is reopened along with 
it s gadgets Finally, con could OOt KM Quit 111 whkh GaSC the program 
would branch to ( I l M WINIXHV and end the program. If you don't 
choose any of these items the program branches to NO_MESSAGF. 
You can select menu items bv using either the LMB or the item's 
corresponding command key. 

Or you might have chosen menul and one of its five subitem*. 
Depending on which subitem is selected, the new maximum iteration 
count is stored in MAXCOUXI (register a3) StnCC no further action is 
needed the program immediately |umps to \l ' MFSSAt .1- alter you 
change the ilerahon count. 

ZOOM 

If you activate the MOUSE BLrrO\ (lag bv pressing the LMB the 
program branches to ZOOM. The values in MouseX m\i.\ Mouse i are 
made into words, stored in START X and ST ARTY, and the draw mode 
switched to complement. With this mode a line drawn over itself 
restores the original pixel values under it Another message check is 
made to see if you move the mouse or release the 1MB. When you do 
release the LMB, the I M CODE in d3 will eo,ualSELECTUP(#$E8). If 
you haven't released the button, the coordinates in MouseX and 
Mouse Y are now stored Ifl ENDX and ENDY. The BOX macro will 
draw a box connecting STARTXSTARTY, ENDX, and ENDY Alter an 
optional delay the same box is redrawn restoring the original color of 
the pixels under the line. The program then branches back to the 
message check. 

When the message check says there's a MOUSEBUTTON and the 
code says it\SI I It 1 1 !'. ihe program branches to LMB.UP There the 
original mode of JAM1 is restored, then /Ml 1 ts used to multiply 
XSCALE'STARTX. The result is added to XC and saved as NEWXC; 
this is already a scaled number Then multiply XSCALE times ENDX, 
add it to XC. and subtract the just computed NEWXC to get the 
distance between your Xpoinis Convert this 10 a dp number, divide 
by 320, return it as a whole number in dO, and save il as the new 
XSCALE Before saving it. however, check to be sure the scale is .if 
least I, otherwise you've exceeded the program's maximum zoom 
capability 11 it is a 0, change it to one and BEEP the scr.vn to let the 
user know there's no more zooming 

The same procedure is repeated with YSCALE, but, since the 
bottom of the screen ts actually line 200 and the top is actually 0, you 
must reverse everything. Subtract ENDY from 200 then multiply by 
YSCALE, add YC, and save the result as NEWYC. Subtract STARTY 
from 200, multiply by YSCALE, add YC, subtract NEWYC. and die Ide 
by 200. Again test this number to be sure the new YSCALE is not and 
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Hl-l-1" it it is When allot the now locations and scales have been 
computed, branch to SHOWIT. These new locations do not affect the 
values in (he string buffers, nor do you know what Ihev are 

The final routine adds the XSCALE to Xl.OC. increases the across 
distance by I. and. if we're not done, branches to ML1. If the drawing 
is complete the program branches back to the message check to see 
what you want to do. 

The variables XC, VC, XSCALE, and YSCALE have been 
computed for the default values of -2, 2, -2. and 2. Because I wanted 
these values to appear in the string gadgets 1 REM' d the buffer portion 
of MAKESTRGADGET macro and used buffers at the end of the listing 
tilled with the desired values, notice that each one must be NULL 
terminated. Assemble this program using A68K as M\J, or copy it 
from the enclosed disk. 



I hope this article has helped von to understand IDCMI' flags, 
IntuiMessages, and how they work together with menus and gadgets. 
Some changes you might want to make to this program are to disable 
portions of the menu that aren't in use, react to menu! at the start of 
the program, and to replace new coordinates in their respective string 
buffers Experiment with the string gadget placement, menu colors, 
and text colors. Most of all, keep working with assembly language; the 
more you use it, the easier it becomes And let those macros do a lot of 
the work lor you. 



TABLE I 






TABLE I 

GADGET STRUCTURE (44 BYTES! 






LONG 


4 


WORD 


6 


WORD 


8 


WORD 


10 


WORD 


I? 


WORD 



POINTER TOM.XI (.ADGET STRUCTURE 
LEFT-EDGE RELATIVE TO WINDOW 
TOP-EDGE RELATIVE TO WINDOW 
WIDTH OF GADGET BOX 
HEIGHT OF GADGET BOX 
FLAGS 
CADCHCOMP(SO) GADGHBOX(5II 

GADGIMAGE (54) GRELBOTTOM (58) 

GRELHEIGHT (S40> SELECTED (580) 



CADGHIMAGEIS2) 
CRELRIGHTtSIO) 
GADGDISABLED ($100) 



CADCHNONE(S3> 
GRELWIDTHIS20) 



14 WORD 



ACTIVATION 
RELVERIFY(Sl) 
RIGHTBORDER (510) 
BOTTOMBORDER (S80) 
LONGINT ($800) 



CADCIMMEDIATE(S2) 
LEFTBORDER (520) 
TOGGLESELECT (SI00) 
ALTKEYMAPtflQQQ) 



ENDCADGET (54) 
TOPBORDER (S40) 
STRINGCENTER(S200) 
BOOl I -XTFND 152000) 



FOLLOWMOUSE IS8) 
STRINGRIGHT(5400) 



16 WORD 



GADGET TYPE 
BOOLGADGETI5I! 
STRGADGET (54) 



PROPGADGET 152) 
REQGADGET(SIOOO) 



GZZG ADGET (52000) 



18 LONG 

22 LONG 

26 LONG 

30 LONG 

34 LONG 

38 WORD 

40 LONG 



POINTER TO IMAGE OR BORDER STRUCTURE 

POINTER TO HIGHLIGHTED IMAGE OR BORDER STRUCTURE 

POINTER TO GADGET'S INTUITEXT STRUCTURE 

MUTUALEXCLUDE 

POINTER TO PROPINFO OR STRINGINFO STRUCTURE 

USER-DEFINED GADGET NUMBER 

POINTER TO USER-DEFINED STRUCTURE 
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TABLE II 



STRING1NFO STRUCTURE (36 BYTES! 




LONG 


POINTER TO STRING BUFFER 




4 LONG 


POINTER TO STRING UNDOBUFFER 




8 WORD 


CURSOR LOCATION IN THE BUFFER 




10 WORD 


MAXIMUM NUMBER OF CHARACTERS IN THE BUFFER 




12 WORD 


FIRST CHARACTER LOCATION IN THE BUFFER 




14 WORD 


CHARACTER POSITION IN THE UNDOBUFFER - INT SET 




16 WORD 


NUMBER OF CHARACTERS IN THE BUFFER - INT SET 




18 WORD 


NUMBER OF \ ISIBI 1 CHARACTERS ■ INT SET 




20 WORD 


LEFT-OFFSET OF COM MM R INTSET 




22 WORD 


TOP-OFFSET OF CONTAINER - INT SET 




24 LONG 


POINTER TO LAYER STRUCTURE - INT SET 




28 LONG 


VALUE OF THE LONG INTEGER - INT SET 




32 LONG 


POINTER TO AN Al ilKNATEKEYMAP 




BORDER STRUCTURE (16 BYTES) 




WORD 


STARTING LEFT-EDGE RELATIVE TO CONTAINER 




2 WORD 


STARTING TOP-EDGE RELATIVE TO CONTAINER 




4 BYTE 


FRONT PEN COLOR 




5 BYTE 


BACK PEN COLOR - UNUSED 




6 BYTE 


DRAW MODE - JAMl OR XOR 




7 BYTE 


NUMBER OF PAIRS OF COORDINATES 




8 LONG 


POINTER TO A TABLE OF COORDINATES 




12 LONG 


POINTER TO NEXT BORDER STRUCTURE 











; LISTINGl 
.•Kandelbro' 
incl . 

* 
inc: - . 
inc; . 
Inci . 



moveq 

moveq 

mrl\9 asl.l 

roxl . 1 



Listing 1 



. • ■ . 



;<d0'c: 

• 0,(12 

• O.dJ 

no, it 

. 
II, d3 









mrl\9 






move.w 


JU.d2 




dl,d2 


swap 


dQ 


. 






AG 


. 

















■ 
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BOA 










. 














■ 


























-324 














•_« macro ;<move 


10 




move. 1 


J000D 




■ 




10, d 












;sca; ■ 


• ixdp 






jwholi' 


move.l 


d0,\l 




. 


enda 










. 






1 


/beep 














move.l 














; opmn a 1 1 t h 


need 










. 







openlib 

■ 



setup: 

-reen 
openscreen mys ■■- 
moves. w i64,najccoti 

openwindow ny 
pale'* map,] 

mode 



Teen ot i20 x 200 






tst .w 
bne.s 

Cat .w 
beq.s 

■ 
baq . i 
bra. s 



dO 
msg_check 

mdelbrot 
11. dl 

msg_check 
isjrkinde'.i i 
move . w 10, 
bra.s coord! 

is_ji: : 
mov- 

ga ■ 

convc: 

■ 

movedp d6 . d2 

subdp 

movedp d0,d6 



■ 
■ 
;maka dp number 

■ 
;d0/dl X left 

;move 



. 



r- 

. ■ .i 

mov* l; 
subdp 
movedp dO , dp 

'-e d0.d2 

■ :: 



.■move 

dO/dl 



lea 



.30 



Eer.aO 

srtdp 

■ 
Lmandelbrot / jul ia_demo 

rp.al 



BS 



mil 



move .1 yc . y ) oc 

move . 
move. 1 ; 

• 0, count 

move.w 10, ■ 
Casta 

. 



mc . .loc 

addq.w H.sign 
bquarea 



move. I 

I , asqr4 

move.l blor.dO 
bpl.s scj 



move. 1 dO.dl 
■ 
tesC4 






.-save dO 



:5ign check 



;save it 
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bsquare 




cinp.l 


•S10000000.d2 


blo.a 


Imag 


move.w 


count, dO 


andi .1 


■ 3 1 . dO 


,-andi.l 


•15. dO 


;addi.w 


#16. dO 


. 


12, dO 


fOi 






.$, down 


bra 




LBS : 




move. i 


aloc.dQ 


move. 1 


bloc. d I 


mulr 




movaq 


•28. dS 










neg. 1 




ncgx.l 


62 


scale? 




asr.l 




roxr. 1 




subq.l 


11, dS 


bne.s 


scale2 


■ 


i 


. 


l 














scale2a 




move. 1 


d3,bloc 


real 




■ 


. 






■ ■ 


; 


subx. 1 




portion) 


move . 1 


•29. d5 


sea lei 




asr.l 


• l.dO 


roxr.l 




subq. 1 


11, dS 


bne.s 


sea lei 


tat.w 




bne 


add_; 


add.l 


xloc. 


bra.s 


scalela 


add_Juliaa 




add.l 


<a.dl 


scalela 




move.l 


dl.aloc 



adda.w VI. count 
cppa.w maxcount .count 
bne again 

moveq.w •I'T.dO 



:d2.di ■ a square 

.-compare to 4 
: branch it lowvr 

.•count -> color 
.-optional colorl 
;optional color2 

.-optional color 3 
;set apen 
;pset the point 



,*d2,d3 - aa • bb 
.-scale / 2 
; check if neg.r 
.•branch l f not 
; or change the value 
:>oth regi i 

: with carry 



computing Julia Set? 
; guess not 

: guess so 
;new . part 



;d0 = asquare - bsquare 



; plus Juliaa 

;new real part 

.-increase count 
;up to maximum yet ? 
.-branch if not 
;optional Set coloring 
i or leave it black 



; Spset across, down 

fin 

move.l yloc.dO 

add.l yscale.dO 

move.l dO.yloc 

■ .(orjnessage 
cfm no_message 

cmpi.l •menupick.d2 
beq . s chcck_menus 
cmpi.l •mousebuttor 
beq zoom 

no_message 
. :>-.'k.r.;. ;.; 

eva l_raenunumber 
tst.w do 
beq. 3 handle_menuO 
cmpi.w tl.dO 
beq.s handle_menul 
bra no_message 

handlejnenuO 



dc_set64 

roovea.w «64. maxcount 
bra no_message 

■.128 
movea . w ■ 1 2 , maxcount 
bra no_mossage 

do_set256 



; by skipping it 
■•increase yloc by yscale 

;a menu? 
i press 

.-nothing . 

;get menu. item, subitem • 
.-menuO? 

; menu 1 ? 



Cirr 


•0. 
do_mandelbroi 


-0? 


cmpi .w 


11, dl 


;iteml? 




do_coordinates 






• i.dl 

window 


;item3? 


--eSSAQa 
do_mande 1 brot 
move . w 10 ( 


■ .ag Julia 


bra 
dOjulia 

bra 


start 


; ( lag 


ordii 






pcli 

closemenu 


,- clear 
; and 


clos> 




close 


bra 
handle_mf:. 

tst.w di 


.isplay gadget 
;subitem0? 


beq.s 
bra 


■ ■_ .[,!_ 




do_:tcount 






beq.s 

■ 
beq.s 
empi .w 


d2 
do_set64 

• l.d2 
do_setl28 

12, d2 




' ■ i-i 


do_set256 

• 3,d2 




beq.s 


do_setS12 
• 4,d2 
do_Betl024 


• 




no_message 





.•reset maxcount 



(continued on page 66) 
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Porting a B+Tree Library 
to the Amiga... 



by John Bushakra 



Computer programmers are often faced with tin- daunting task ol 

re-inventing the wheel The users of our programs demand— 

rinhtliillv-lh.it they be able to sh.ni- their Information among all the 
different systems they mav he using, and as programmers nc muM 
accommodate them in order to survive Hut among programmers 
themselves, sharing information is quite a different storv. As my father 
once told me. The only people in this world who want you to have 
accurate information are the people you work tor." Nowhere is this 
more true than in the compute: Software industry To his observation. I 
can only ^\d,i this parenthetical remark sometimes, even the people 
you work for don't want you to have accurale information In any 
event, the end result is that much of a computer programmer's time is 
spent reinventing technology that someone else has alreadi de\ el- 
oped. 

Anyway, this article isn't going to be a lecture about the B\ Us ol 
hoarding information. It's about porting a library Of data management 
routines from the IX' world to the Amiga world, and is meant to help 
other Amiga programmers, who might be silling huddled in their 
caves, chiseling away on a programming tool that has ahead) been 
implemented on the I'l 

The product I'm referring to is called IheC/Daiabase rookhest, 

and is available from Mix Software (the address is given at the end of 
this article). Mtx Software is well known in the U1M world .is the 
maker of a full blown C development environment which it sells for 
around— better >it down tor this- -SrV5. That price includes the 

compiler, source level debugger. Ubrarj nureecodca BCDbusine-— 

math package, and shipping. The C/l >atabase ["oolchest sells for 
$19.95. plus $10 for the C source code. 

The product consists of .1 B-Tree library for managing index Dies, 
and an ISAM (Indexed Sequential Access Method) library, which 
manages both ihe indexing and data files needed by your application 
There are numerous other utilities provided with the sot tw are These 
include helpful debugging routine's, functions lor converting your data 
and index files to and fromdBASE format, and compression rou- 
tines— which ess.-nti.illy just physically remove deleted records from 

your data files There is also a small database application called 1 DM, 



ior Littk Data Manager, which illustrates the use of Ihe B-Tree and 

ISAM libraries All source Code is included with these utilities. 
including the I DM program I DM uses tvpic.il chancter-based 
windowing functions and Lot us-stvle menu strips, but these could 
easily be replaced with their Amiga equivalents, to create- a pOV. ertul 
database manager. A .130-page manual is also included with the 
package. 

Presumably, a computer program is written with the intent ol 
processing some type of information. The information of interest [S 
often comp»»sed of several related data items, which are grouped 
together into data structures When you design a data structure for 
your program, there will be one or two fields which you w ill want to 
use to identify a particular instance ot the structure. The fields used lor 
this purpose are called ke) I Foi example, consider the following data 
structure 

struct person ) 

char last_name|I6|. first. n.ime[lf.J; 
charaddress|32|,phone|14]. /tp|U>|. 



The l.ist name field is commonly used as a key field Using this 
key, we might ask our database management software for a list ot all 
the Smiths in our files. Or, if we used the zip field as .1 key, we could 
ask forall those people living within a certain zip-code 

keys for a particular database are stored in ^n index file. An 
index, to quote the ToOfehest manual, is ".m ordered list containing 
pointers to data." The best illustration for this definition is the index in 
any text book fhe index m a hook is ,iu ordered lis) ol selected topics, 
and the page numbers given with each topic "point" von to the Correct 
location in the book. 

Every time a record is inserted into a data file, the data contained 
in the kev fields ot that record are written into the index file Associ- 
Bted with each entry in the index file is a pointer, which shows where 
to look in the dala tile for the corresponding data record 
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The records in the data file are stored in no particular order. The 
keys however, do have U1 order imposed on them Ascending order 
using the ASCII collating scheme Is frequent I v used, bill RtOSl has 
manaaxmenl libraries, including theC/Ualabase loolchest. .illow you 
to define yom own key comparison (unctions Keys provide us with a 
way lot;.! different "views' of ihe information Inourdati files (foi 
Instance, all the Smiths living within a certain zip code) Bui storing 
keys and data in separate files d<x-s not really give any increase in 
peifbnnance We would still have to perform a sequential search of the 
Index tile to find the data records we're interested in. 

The trick, then, is to de\ is* .in efficient WS) of storing keys in the 

index file. Here to where the B+Tree library m the C/ Database 

Toolchest (CHI for short) comes in Pie CHI library contains routines 
tor managing the inde> fill's used bj VOUT .ippin.it ion Tlie keys in the 
inde* are stored using .in implementation of the B*Tree algorithm, so 
the index is organized in an efficient manner. Very briefly. .1 II- 1 Re ■- .1 
generalization of another tvpv of tree data structure called a 2-3 tree — 
so called because all of the interior nodes of the tree have either two or 
three children. A B+tree Is yet another variation of the B-Tree. which, 
among other things, allow-, you to store variable length records by 
default 

Records in the CBT index file consist of keys and items An item is 
defined to be a long integer M\A is typically used as an Offset pointer 
into a second, sequentially organized file, which contains the actual 
information used by your application, for example, the names, 
addresses, phone numbers, and zip codes tor each person data 
structure, defined above 

The CBT library contains many functions that can be used to 
Create and maintain your index files Among the different types of 
functions available are stepping forward or backward through the 
index, moving to the head or tail of the index, locating a particular key 
and item, and deleting l particular key and item. As mentioned earlier, 
the CBT library allows variable length keys by default. Other B-Tree 
packages I've seen require considerable additional work to use 
variable length records One other nice feature of the library is that it 
>lklW3 multiple keys to be stored in a single index file This means that 
it you wanted lOUSC two different fields of the person data structure as 
keys, SB) . last name and zip. vnu ,ould store bold ot them in the same 
index tiU- 



Since only long integers can In- stored with the keys in the index 
tile, v ou will probably never use the CBT library directly. Instead, the 
file management portion of your application will use the ISAM library, 
which is built on top of the CHI library With the ISAM library, your 
data records Can take any format needed b) \our application. 
As noted above. ISAM stands for Indexed Sequential Ai 
Method Ibis external Storage algorithm gives us a was to organize 
data so thai it can be manipulated in two ways— randomly, and 
sequentially That is. we can access any record, regardless Of its 
position in the database, or we can access the records in the order (hey 
are ph) skilly stored In the data file. 

Ihe ISAM library manages both the index file and the data file, so 
it contains routines tor manipulating keys, which in turn call the CUT 
functions, as well as its own I/O functions for managing insertions, 
deletions, and searching for records in the data file- Among many 
others, there are functions provided for creating the database, opening 
an existing database, defining key fields, snd making indexes 

The ISAM library supports many advanced features, including 
variable length records— by default, like the CBT library The libcarv 
also allows you to create Indexes "on the fly, This feature allows the 
user of your program to define a temporary key held with which to 
retrieve records. For example, you the programmer might create 
indexes for the last_name and Zip fields of the person data structure 
One time, however, the user needs a report sorted on the city field. He 
would indicate this to your program, and by calling a single ISAM 
function, you can construct an index for him using the city field All 
the records in the data file are immediately accessible by the new 
index. When the report is finished, you can remove Ihe index, again 
using only a single function call 

The ISAM library also supports segmented keys, or keys thai are 
made of several different fields from your data structure Again, using 
our venerable person data structure, suppose the user wanted to 
generate a report which lists all the records sorted in ascending order 
by the stale field, and within each state, the user also wants the zip 
code of each person sorted in ascending order. We can do this for him 
b) Concatenating the state and zip fields into one key, and then using 
these six files include the standard header hies string h and stdlib h, 
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with double quote! instead <>( the usual angle brackets (< >>. If the 
quote-, aren't replaced with bra, kets. the < compiler Will li>ok in the 
current directory for these two header files, instead of the directory 
assigned to the symbol INCLUDE:. The six offending files are 
bufpool.c. cbkey.c, ctrlrecc, hcre.c, movekev c. and hm. ( 

The CBT library defines a data structure which it typedels with 
the word Node. It you were ne\ et going to use the Exec Node 
structure, this wouldn't really cause any problem'. It > highly, 
probable however, that you will be constructing fetS oJ keys, and 
displaying them in those nifty scrolling li>t boxes that are so easv to 
make with the Amiga's new 2.0 operating system. The new list boxes 
make extensive use of Exec's last data structure, which o( course uses 
Nodes to link the list together. In order to avoid conflicts, it - easier 
and safer to just give the CBT library Node structure a new name. 

CBT's Node structure is referenced many times throughout the 
library, but we can easily change all the referenda at once, using the 
SIM. AT utility that comes with the SAS C compiler. SIM. A I is ■ 
program that takes a search pattern, a replacement string, and a set of 
tiles .is input When the search pattern is located in a file, it is changed 
to the replacement string. You will use SIM A I to %,-an h tor all 
occurrences ot the string Node", and replace it with the string 



YOU "ill find I replacement file tor LMK in listing one Make files are 
used to describe the interdependences of tiles that com pri se .1 
software application Given .1 target I MK examines the date and time 
stamp on the files that make up the target Whenever a component of 
the target is found to be out-of-date, it is recompiled. 

In this case, the target of the build is the library, CBT.LIB. and the 
components thai make up the target are the object files produced by 
the compiler. Whenever the date and time stamp on the object file is 
older than the date and time stamp on the corresponding source file 
(i.e , the source file was modified more recently than Ihc object file), the 
compiler is invoked to rebuild the object file. To make things more 

■ nt, you can use the -R option, which instructs the compiler to 
replace the out-of-date object file in the specified library with the new 
one Since l.MK is smart enough to compile onh the source files thai 
are outdated, the -R option will allow us to only update the library for 
those object files that have been recompiled Otherwise, we'd have to 
keep all the object files around on the hard disk, and rebuild the library 
from scratch, even if only one source file was modified. 

To build the CBT library, type 

LMK-fcbt.mak 

When the process in done, you will find the* HI 1 IB file in your 
LIB: directory 



Microsoft C uses a function called memmove() to copy bytes 

of memory from one location to another. There are two 
equivalents for this function in SAS C. The first is memcpy(), 

and the second is movmem(). 



"CBNode". Only one command is needed lo change all the CBT source 

files 

SPLAT -o Node CBNode Wfx WJl ftt 

The -o option directs SPLAT to overwrite the original die. If you 
don't feel comfortable with this, then you can use the -d option to 
direct the output hie to a different directory I don't recommend letting 
SPLAT create files with the default .SSS extension? AmigaDOS doesn't 
seem to like dollar signs as well as human beings. 

Microsoft C uses a function called memmove(> to copy bytes of 
memory from one location to another. There are two equivalents for 
this function in SAS C. The first is memcpyO, and the second is 
movmemf). When I compiled the CBT library with memcpyO, it 
simply refused to run. Unfortunately, 1 did not have a chance to 
research this problem fully. The solution is simply lo use the 
movement) function instead. You will have to change the order of the 
arguments, but that's not really a big deal. The source files that require 
this change are cbkey.c, hercx, and movekeyj:. 

Another Microsoft C memory function. menmmpO. is used in the 
CBT key comparison routine. The SAS C equivalent for memiempi ) is 
memcmpO. The source file requiring this change is cbkevcmp.c. 

The last change required before building the library is changing 
the Microsoft C make file to something that SAS C's LMK can digest. 



The changes that need to be made to the ISAM library are equally 
simple. Like the CBT library, the easiest place lo start porting the ISAM 
library is with changing some 'include statements 

Some of Ihc ISAM source files include files from the CBT library. 
Therefore, you will have to change the "include statements in these 
Hies, so the compiler will look in the directory into which you copied 
the CBT library source files. The ISAM files that require this change 
are? isam.i, isam.h, and createdb.c. 

The level one I/O routines in Microsoft C require an include file 
called lo.h. This file does not exist under SAS C, and this include must 
be changed to the file fcntl h There are SCVCn files requiring this 
change, and they are addrec.c, closedb.c, createdb.c, gctrec.c. getilen c. 
holes.c. and opendbx. 

When opening a database with the ISAM library, the only 
parameter required is the file name, without an extension. Both the 
open and create database functions automatically provide an extension 
of .IDX, and DB tor the index file and data file, respectively. The 
library functions go to great pains to strip an existing extension off the 
file name passed to them before opening or creating the database. 
Because AmigaDOS is less fussy about file names than MS-DOS, 
stripping an existing extension ott the file name smiplv isn't needed. 
We can make the open and create functions somewhat simpler by 
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reworking them so that they only concatenate an extension ol ll>\ un 
tin 1 index lilo, and .DIJfor Ihe data tile. Since AmlR.il X >S allows 
multiple periods li> appear in filenames, we • .hi ignore .in existing 
extension with no worries 

Begin this change by bringing up a file called filename* in your 
text editor there are two very similar functionsdefined In this file 
one nukes the data Ale name, and the other make* the Index Hie name 
Change these Iwo (unctions so th.it all they do is strcpyO the filename 
passed in by the caller into the filename hut butler, then call the 
function chg extento. with the butter, ind the desired extension (eithei 
DBor.lDX) 

Also note thai the default extensions DBand IDX are "defined in 
this lilt- -these extensions can be changed In suit your needs 

Motke at the top o( filename c, a tile called filename h is included. 
This header tile delines the maximum number ot character-, allowed in 
a drive prefix, path name, file name, and extension 1 hey are all 

lied in terms ol MS IXlS limitations, and need to be changed to 
the Amiga DOS eo,uiv.i lent- SpecificaU) . a disk drive prefix is lour 
characters (e.g., DHu 1. 1 path name can be up to 256 characters, and a 
filename can be up to 31 duncten Pie default extension size is 

defined to be four characters (three tetters, plus the dot), i elected not 

to change this, since 1 didn't change Ihe default .DB and IDX exten- 



llring this tile up in vour editor, and look at Ihe function 
I mk size keyO It'seasv to see that this function operates on a lfc-bil 
integer firs.1 the upper eight hits are shifted right. mm\ "masked'' ivilh 
Oxff, then the lower eight hits are masked with IKtf Hits function 
needs to be * hanged so thai it operates on ■ thirty-two bit integer 

First, change the function to shift the size parameter to the right 
bv 2 I bits and mask it with Oxff. Then shift il hv l*» hit", and applv the 
m.isk Mult it again by eight bits and applv the mask, and finally, apply 
the mask to Ihe unshifled si/e parameter to gel the lower eight hits hi 
short make the lunction I. mk -i/e IwyQ look just like ihe function 
I mk offset kevp. With the obvious exception that link size kev() 
operates on ihe si/e parameter. 

A similar change needs lobe made to the function l.get si/e(). In 

the same file. Like l_mk_size_k*yOi Ihte function opetateaon a 16-bil 

integer, rather than .'2-bit integer lo make a long story short, make 
I get -i/e() look exactl) like) get offsetO, except that I get -i/. 
the size variabtei not Itte offset variable 

The level one I/O routine openO accepts .i tile protection 
parameter, although theSASC manual states lhal this parameter is 
ignored Still, il von don i provide il. you will get warning messages 
when you compile the library. There arc occurrences ot the open() 
function in both opendb.c, and createdb.c. You can simply Specify a 



Another Microsoft C memory function, meniicnip(), is used in 

the CBT key comparison routine. The SAS C equivalent for 

memicmpO is memcmp(). The source file requiring this 

change is chkeycmp.c. 



-.urns it you change these extensions, be sure to increase the sized the 

maximum file name extension accordingly 

If you look at the two functions in filenames again, you will 
notice that they both call a function that append- the default extension 
to the Ale name This function to defined In a file called chgexmi. 
Bring Ibis file up in your text editor, and comment QUI the forfl loop in 
the function chg_exlent() Rework the routine so thai all it does is 
ItrcatQ the extension onto Ihe end of thr tile name buffer, and then 
return 

In making these changes, we've eftecti vet) bypassed Ihe function 
defined in the file path i ihereiore. we can remove this file from Ihe 
make file provided lor ihe ISAM library 

the next change Is going to be a little difficult to explain, since I 
cant reproduce any of the nam source code for you in a listing On a 

PC, when you declare an integer variable with only Ihe int keyword, 
the compiler gjVCS VOU 16 bits in which lOStOTC vour integer On the 

Amiga, the saiw declaration generate s a 324tH variable Because ol this 
difference, wow changes are required to the routines that manage 
deleted records m the data file I hesc routines are defined in Ihe file 

holes c 



zero as ihe last parameter to openf). and (he compiler will be happy 
and content 

AS 'ts name implies, me file irealedb.c has routines that create 
and mitiali/e Ihe database index and data hies Bring this fde up in 
vour editor and look a I the function I mil header!) Ihe first thing this 
lunction does i* NeekO eighl bytes past the beginning ol I ho freshly 
created data file. Fhat might be hist dandy in MS-DOS>bul AmigaDOS 
will not be pleased at all if you trv to seek past the beginning ol an 
empty file. The call lo IseckO needs lo be commented out. and replaced 
with two w riled statements th.it write out dummy values for the two 
variables, strings length, and fieJd.count After the wiiten s t a teme n ts', 
the Itle marker will be positioned al Ihe same place it would have been, 
had the IseekQcaK succeeded When you insert the two writeQ 

Statements! he sure to fbtlOM Mix Software S Convention ot checking 
the return value (in Ihiscaso. the number ol bytes Written). It the value 
is not four (the sizeol a long integer), something is wrong, and sou 
need to return the error value 1 IO immediately 

After searching .ill the source files t"' the obvious changes gjven 
above l compiled the ISAM source files, and built (he Ifbrary Mv 
initial tests, creating, opening, Inserting records and retriev mg records 
were Successful but (hen something disturbing happened. After 
deleting a record, closing Ihe database, and then re-opening the 
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database, the indexes I had defined seemed to have disappeared A 
dump of the index tile proved they were in fad -.till there, hul the 
iopen_db<) function would not read them Managing deleted records is 
a major, complicated part of the ISAM library— no doubt thin problem 
was not going to be easy to track down. 

Whenever you insert a record in the data file, the data in the key 
field(s) of thai record are also written in the index file Hut keys aren't 
the only things stored In the index die When you define an index, the 
name of that index is also written in the index file. Furthermore. 
whenever you delete a record, a key and item pair is written to the 
index file that tells where the "hole" is in the data file so that space can 
be re- used later. How does the ISAM library tell the difference between 
all of these key and item pairs in the index tile' By prchxing each key 
with a signed byte that identifies the key as either the name of an 
index, a pointer to a hole in the data file, or an actual key that points to 
a valid record. 

When you open up a database, the l_next_index() routine (in 
opendb.c) starts reading key/item pairs from the index tile. Irving to 
find all the names of the indexes you have defined When it sect .1 key 
with a prefix bvte thai identities that kev as something other than the 
name of an index, it slops, thinking il has examined all Ihe keys in Ihe 
index file 

In this case. I_next_index() couldn't have been more wrong. The 
first key/item pair it was reading from the index file happened to be a 
pointer to a hole in the data file. It saw the prefix byte identity ifW it as 
such, and quit, before it even saw any index names. 

Obviously, I can't provide you with the exact source code lor 
l_next Jndexf). Fortunately, the changes that need to be made aren't 
thai difficult. The function should remain basically the same— all 
parameters passed to it. and its local variables do not need lo be 
changed. What the function should do is read kevs i>,w ,n a time, until 
it finds one with a zero byle prepended lo il (ihe zero byte idem | 
the key as the name of an index). When such a key is found, it should 
return to its caller ( l_ifopen() ). The caller will do whatever processing 
is necessary on the returned key, and continue to call l_next_index() 
unhl it returns ihe value of EOI (for "end of index") The downs:, i, ,■: 
this solution is when the index file becomes very large, it could lake 
some time to open the database. On the positive Side, Opening the 
database is something you are likely to do only once? afterward, you 
still gain all the speed benefits of the B+Tnc storage algorithm. I'm not 
sure why this anomaly exists in the AmigaDOS port ol the ISAM 
library. I've since run the LDM program on a IX?, and experienced no 
such problems when deleting records. 

I istmg 2 has the make file for the ISAM library. There are two 
source files on Ihe distribution diskette that use ROM BIOS interrupts 
to get the disk drive number and current directory. These two files 
aren't needed at all for AmigaDOS, and can be removed from Ihe make 
file. To build the library, t\ pa 

I.MK -f isjm.mak 

When ihe build is complete, you will find the tile ISAM LIB in the 
directory assigned lo LIB: 

Overall. I'm very impressed wiih the quality of the C7 Database 
Toolchest Ihe entire system is well designed and coded Die 350-page 
manual that accompanies the package is a gem. it easily ranks among 
the best software documentation IS e ever seen, on any platform. In 
addition to thoroughly explaining all ol the (unctions in the libraries, it 



also contains a chapter with general information on the Indexed 
Sequential Access Method, and still another chapter on external tree 
data structuu-s [his manual is well Structured, well written, and 
informative as well BS educational? indeed a rare find in today's 
Software market. 

The C/Database Toolchest seems to be right al home on the 
Amiga. It's a powerful and badly needed addition to an) 
programmer's library. The moral of the StOf) H, thai U you can't find a 
programming tool you need to complete a protect on the Amiga, come 
out ot you! cave and investigate Ihe possibility of porting existing 
code. And if you do find something thai is portable, by all means share 
the information with your fellow Coder*! 

Mix Software 

1 132 Commoico Drive 

Richardson, TX 75081 

1-800-333-0330 
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1 Listing one. LMK file £or building theCBT library. 
• John Bushakra 06/10/91 

* 



.lib 



0t . lir 

HEAD'-: 



tq \ 



itIB) : ■ cbcreate.ocb 

■ ■ ■ 



rbclose.o V 



cbk. -modify. o 

cbdelece.o cbnext.o ebopen.o cbprev.o cbprterr.o 

t-bconmsg. c Oet n aag.o cbtcnmsg.o cbtail.o 
ID . O \ 

locleaf .0 posnext.o postirst .0 pos; 
poslasi . 

cbmaert.o root.o keyval id.o nwikef it .0 of f left.o 

off right. o insnode.o delnodi 
cbblk: 

. ock.o btree.o 



ner< 



node.o blockio.c; : >ber.Q 



. (HEADERS) 
S (FLAGS) Cbi: 
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cbcrcate.o: cbcreate.cS(HEADERS) 
StCC) SIFLAGS) cbcreate.c 

cbcurr.o: cbcurt.c S (HEADERS) 
S(CC) SIFLAGS) cbcurr.c 



cbclc $<HEAOER£] 



nd.o: cbfit. .. 
SlCCI S (FLAGS* CD: 

cbfindit.o: cblindit .c SIHEADERS) 
SlCC) SIFLAGS) cbfind- 

.ah.'.- 5 (HEADERS) 
SfCCI SIFLAGS) cbflush.C 

- o: cbfndmrk.c SIHEADERS) 
: FLAGS) cblndmrk.c 

cbhead.o: cbhead.c S (HEADERS) 
S(CC) SIFLAGS) cbhead.c 

cbkey. o: cbkey .c S (HEADERS) 
S(CC) S(FLAGS) cbkey. c 

cbdepth.o: cbdepth.c S (HEADERS) 
S(CC) SIFLAGS) cbdepth.c 

cbkeylen.oj cbkeylen.cSIHEADERS) 
S(CC) SIFLAGS) cbkeylen.c 



.o; cbmodity.cS (HEADERS) 
■I AGS) cbcnodify.c 

• :.ielete.c SIHEADERS) 
SIFLAGS) cbde ■ 

bnvxt.cS (HEADERS) 
M3S ) cbnext . c 

: cbopen.cS (HEADERS) 
S I FLAGS ) cbopen . c 

: cbprev.cSf HEADERS) 
SIFLAGS) cbprev.c 

.o: cbprterr.cS (HEADERS) 
S( FLAGS) cbpr' 

. : i--Ur-a.cS (HEADERS) 
cbcoTimsg . c 

.0! cberrmsg.c SIHEADERS) 
S(FLAGS) cberrmsg.c 

.o: cbfcnmsg.c SIHEADERS) 



cbd, 






cbrv 



cbt pen. ■ 
SICCi 

cbprev.o 
SICCI 

cbpcterr 
SlCC) 






5 I CO 



■ 
SlCC) 



I HEADERS) 







The BASIC For The Amiga! 



ne BASIC package has stood the test of time. 

Three major upgrades m three new releases since 1988. 
Compatibility with all Am>ga hardware (500. 1000. 
2000. 2500 and 3000). Free technical support. .. 
Compiled object code with incredible execution 
times Features from all modern languages 
and an AREXX port... This is the 
FAST one you've read so 
much about! 





F-BASIC 4.0" System S99.95 

Includes Compiler, bnke'. Integrated 

Ediw Environment. User's Manual. & Sample Programs Disk. 

F-BASIC 4.0" + SLDB System $159.95 

As aoove with Complete Source Level DeBugger 

AvMaW OrVy From DELPHI NOETIC SYSTEMS WC (605) 348-0791 
PO Box 7722 RapiO City. SO 57709-7722 

S*nO 0*c« <V Mon*, OrOV o- Wn» (vHoCll WNn C*fOH C*0 or COO 



Sice) siflags) cbtail.c 

I «r..cS (HEADERS) 
SlCC) SIFLAGS) curttem.c 

lOClM* «•«! .-; I HEADERS) 

- leaf.c 

I '•.■.:. S (HEADERS) 

SlCC) SIFLAGS) posnext.c 

' • ' . > (HEADERS) 
sf irst .c 

ev.oi posjj; -ADERS) 

SIC' pes] ••-■v.c 

poalaat.O; pcs.-i- ■ . ■ $( HEADERS) 
S(CC) SIFLAGS) poslast.c 

en ,o: cbinsert .cS(HEADEPS) 
iFLAGS) cbinsert.c 

• ,os root.c SIHEADERS) 
S(CC) SIFLAGS) ro<n.c 

.: Ld.C SIHEADERS) 

..si keyvalid.c 

: It. c SIHEADERS) 
< -c 
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■l.OiOtt.- 
SICC) SIFLAr 

nffr>-»h' . 



insnode.o: insnode.c S (HEADERS I 
SICCI SIFLAGSI insnode.c 



joinnode.o: joinno: 

sico siflags) joinno 

cbblksiz.o: cbblksiz.cS (HEADERS! 
51CC) SIFLAGS) cbblksiz.c 



:-ERS) 
SICC) SIFLA 

movekey.o: 
SICC) $<f 

space. o: space. c S (HEADERS) 
S(CC) SIFLAGS) space. c 

geblock.o: geblock.c S (HEADERS) 
$«X) SIFLAGS) geblo- 









£>ERS) 



SICC) SIFLAGSI cbkeycmp.c 



block; 

SICC) SIFLAGSI blockio.c 

bufpool.O: but poo l.cS (HEADERS) 
SICC) SIFLAGSI bulpool.c 

member. o: rap 

SICC) $-:.. 



Listing 2 



• Listing Two. LMK file for building 

the ISAM library 

ft John Bushakra 06/10/91 



a Removed path.c, getdisk.c, and getcurdr.c 

for AMIGA conversion 

<• 

CC=lc 

FLAGS=-Rlib: isam. lib 

LIB=LIB:isam.lib 

HEADERS= isam.i isam.h isamerr.h isw. 

dhO: lc/source/cbt/cbtree.h 
soutce/cbt /member . h 

S(LIB): isaminit.o isamexit.o copydb.o 
newindex.o destrydb.o \ 

renamedb.o dbhandle.o findrec.o 
findcail.o getfldct.o \ 

getidxnm.o isammsg.o prterr.o 
matchkey.o modrec.o \ 

rmindex.o delrec.o holes. o 
showkey.o addrec.o \ 

createdb.o findkey.o findprev.o 
mkindex.o namelist.o \ 

progress. o ihandle.o showdb.o 
findmark.o : ■ ■y.i .o \ 

i.o getrec.o getrlen.o 
markrec.o matpre.o \ 

showdesc.o getdesc.o show 
getfldnm.o showidx.o \ 

showrec.o upindex.o mkkey.o 
opendb.o closedb.o \ 

filename. o chgextnt.o flushdb.o 

isaminit.o: isaminit.c S (HEADERS) 
SICC) SIFLAGS) isaminit.c 

isamexit.o: isamexit.c Sir. 
SICC) SIFLAGSI isa:- 

copydb.o: copydb.c SI HEADERS) 
SICC) SIFLAGS) copydb.c 

newindex.o: n< dex.c S(HEADERS) 

SICC) Si newindex.c 
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destrydb.o: destrydb.c S (HEADERS) 
S(CC) S (FLAGS) destrydb.c 

renamedb.o: renamedb.c S (HEADERS) 
S(CC) S (FLAGS) renamedb.c 

dbhandle.o: dbhandle.c SfHEADERS) 
S(CC) S (FLAGS) dbhandle.c 

findrec.o: findrec.c S (HEADERS) 
S(CC) S(FLAGS) findrec.c 

findtail.o: findtail .c SfHEADERS) 
S(CC) S(FLAGS) findtail. c 

gecfldct.o: getfldct.c S(HEADERS) 
SfCC) S(FLAGS) getfldct.c 

getidxnm.o: getidxnm.c S(HEADERS) 
S(CC) S (FLAGS) getidxnm.c 

isammsg.o: isammsg.c SI HEADERS) 
S(CC) S(FLAGS) isammsg.c 

prterr.o: prterr.c S1HEADERS) 
S(CC) S (FLAGS) prterr.c 

matchkey.o: matchkey.c S(HEADERS) 
S(CC) S (FLAGS) matchkey.c 

modrec.o: modrec.c S (HEADERS) 
SfCC) SfFLAGS) modrec.c 

rmindex.o: rmindex.c S (HEADERS) 
S(CC) S (FLAGS) rmindex.c 

delrec.o: delrec.c S(HEADERS) 
S(CC) S (FLAGS) delrec.c 

holes. o: holes. c S (HEADERS) 
S(CC) S( FLAGS) holes. c 

showkey.o: showkey.c S (HEADERS) 
S(CC) S (FLAGS) showkey.c 

addrec.o: addrec.c S (HEADERS) 
S(CC) S (FLAGS) addrec.c 

createdb.o: createdb.c S(HEADERS) 
S(CC) S(FLAGS) createdb.c 

findkey.o: findkey.c S (HEADERS) 
SfCC) s (flags) ndkey.c 



findprev.o: findprev.c S (HEADERS) 
SfCC) S (FLAGS) findprev.c 

mkindex.o: mkindex.c S(HEADERS) 
S(CC) S(FLAGS) mkindex.c 

namelist.o: namelist.c S (HEADERS) 
S(CC) S(FLAGS) namelist.c 

progress. o: progress. c S(HEADERS) 
S(CC) S(FLAGS) progress'.c 

ihandle.o: ihandle.c S(HEADERS) 
SfCC) S(FLAGS) ihandle.c 

showdb.o: showdb.c S (HEADERS) 
S(CC) S(FLAGS) showdb.c 

findmark.o: findmark.c S(HEADERS) 
S<CC> S (FLAGS) findmark.c 

findnext.o: findnext.c S(HEADERS) 
S(CC) S(FLAGS) findnext.c 

findhead.o: findhead.c S(HEADERS) 
S(CC) S (FLAGS) findhead.c 

getrec.o: getrec.c S (HEADERS) 
S(CC) S (FLAGS) getrec.c 

getrlen.o: getrlen.c S (HEADERS) 
S(CC) S(FLAGS) getrlen.c 

markrec.o: markrec.c S(HEADERS) 
SfCC) S (FLAGS) markrec.c 

matpre.o: matpre.c S(HEADERS) 
S(CC) Sf FLAGS) matpre.c 

showdesc.o: showdesc.c S (HEADERS) 
S(CC) S( FLAGS) showdesc.c 

getdesc.o: getdesc.c S( HEADERS) 
SfCC) S (FLAGS) getdesc.c 

showfld.o: showfld.c S(HEADERS) 
S(CC) S (FLAGS) showfld.c 

getfldnm.o: getfldnm.c S (HEADERS) 
S(CC) S(FLAGS) getfldnm.c 

showidx.o: showidx.c S (HEADERS) 
SfCC) S(FLAGS) showidx.c 

(continued on page 71) 
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Wrapped Up with 

True BASIC 



b}/ Roy M. ' 



ITus article will, .is a minimum, show you how lo do a graphic 
word wrap and graphic-oriented text with lull 1uM1f1c.1t ion in code 
easily translated to .my language It use* True BASIC. This snippet of 

code is |iiM .in introduction. Il is p.irt of .1 much bigger and more 
serious application which can be further revealed n then 1- sufficient 
Interest 

I am a heuristic style programmer who has passed from punch 

..ii,l Fortran 111 the early dO's to PCP1 1 front panel programming to 
mainframe multitasking Fortran • assembly and various Pascals on to 

C ". I was always of the 'First, Program in English' school. I have 
known many super programmers who were testing ideas for applic.v 
lionsin Applesoft Ot Something like It, like me. behind closed doOU 1 
hai e found that for idea dcvelopineni speed and power and porting, 
nothing, except English, beats True BASIC. Code that runs on my 
Tandy lap top or on a Mac, runs on the Amiga without any modifies- 
Host This especially includes my heavily graphic oriented programs. 
True BASIC code is inherently eas\ to translate. 1 set up my Manx 

l source level debugger With B True BASIC window to test ideas on 
the fly, and use it as nn '< text editor, It is a highly structured 
modular ami compiled language It >s fast in execution You may write 
subroutines m assembly or m C and just use the True BASIC as a 

front end. You can also use any system call from within True BASIC 
thai might be called in 'C -mi) as 



■ciiMiaurrti . tiixia ti Kf 



irptr. ftufrarfiia. 



rPli. tuffrrSli*. 



HMD) 



I'he MOLE I option removes even this slight difference. Inn the let 
statement h,is many advantages in readability and locating assign- 
ments, so I avoid the 'NOI.ET option. 

There is no Speed penalty lot system calls done this way. You 
could learn '(_ " like intuition programming from within True BASIC 
without ever having a 'C compiler. In fact, I have found it easier to use 
01 fun* noris from True BASIC than from 'C There is no speed 

loss 

Platforms 

The original Amiga offering of I rue BASIC works on Amiga 500, 
1000, and 2000* series under DOS 1 3 or 2.0-. all of which I have used. 
The originally marketed version does not work with 12-bit architecture 
.is was the case with many products compiled for the original Amiga 
architecture SpCCS The 32-bll version, which I am currently using 



works on all Amigas(l ha\ eh different configurations covering all the 
above It 1% being called .1 'student version' Why' Beats me II is a 
complete and vastly expanded implementation of True BASK. There 
is more in this student version' than in any language that 1 have seen. 
The only missing element is the 'Binder' belter known as linker which 
allows you to tweak your written program to Stand alone and not 
requite the language system 10 run it. But that was always an 
independent offering 

The new version supports static array and subroutine memory, 
scripts, preloading compiled work code and many other nifty things to 
thoroughly spoil a programmer Some ot thecodc 10 be used in this 
Series wai written and tested on .1 landy lap top and tested under 
MSI X >S ,'\ en though il was written to be implemented on an Amiga 

Although the language is consistent ktoss platforms, it does an 
excellent job at getting at details Specific to the machine via the Toolkit 
(support of machine specific functions and libraries such as exec, 
diskfontlib, intuition etc.). That power is demonstrated in this 
particular project. 

Game Plan 

Here is the Overall idea: Take nearly any kind of image and put it 
into a window, in any quadrant, with text, from any text file, word 
wrapping around it. 

The pop-up window can be any legal st/e. the text can be, thanks 
to Paul Castonguay (who wrote a nice DbkFont library), shown in any 
font (including proportional) and be ot an) sparing and leading The 
K reen can be of any resolution and mode kind including EHB and, 

lally. HAM lexl should auto juMiK and auto hyphenate, when 
you want It to, and do so on the fly. Text should always be easily read 
regardless of the current color palette and particularly when running 
in HAM mode. 

You should be able to defeat flicker, even when in interlace mode 
with 3-D glasses. Rcgar.Uev.of screen resolution, single or ANIM 
images must also allow true 3-D presentation 1 ' ken from live 

or computer generated B0UrCC9 ^-U images ought to he showable on or 
alongside other non ,VD Images and in normal program screens used 
for other program output. 3-D images ought to allow .WIMation and 
data query 

Text must scroll, with key press, torn aid and backward. The 
images, it thev are A\|\K. must allow keyboard ai tivationol 
animation, as well as stepwise Single image advance or ha, kup 
independent of the text scrolling. User interaction with text or imagery 
must be handled. For example, a user ought to be able to step through 
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How to do a graphic word wrap and 

graphic-oriented, full text justification 

with True BASIC code 



an AN'IM (taken (torn \ ideo, say) .in.i slop on any frame and point to 
anything in that frame to uk what [| isot Idenrlf) it in response to a 

text question. The Image carries data that identifies that point and click 
lor whal ii i> 

The imager themselves, must be able to contain Information 
which is pertinent to what they show (It you show a duck you might 
want to encode how much it weighs or how loud it quacks without an 
additional text tile A geographic map image ought to be able to carry 
the tact that Texas is ,olor I and New lersev is eolor 6 etc.). 

User display programs ought to be able to query Images tor more 
than what is displayed. Labeb to details seen m the Images ought to be 
able to bo shown and disappear independent of the user program- 
ming, and be accurately placed regardless ot where, on screen, the 
image is shown All frames ot .m ANIMation ought to he able carry 
hidden information about what i« shown 

All of this ability OUghl to be available to I basic program as: 

1 I-oad an Image 

2 Ask the image what text tile it wants, it am 

3. Load the text file (any si/el 

4. Ask the text file it there are there questions to he asked' 

5. Present image and text in a pop- up window thai >U»~~ its oh " screen 
repair. 

6 It the text asked questions, check the user answers against the 
Correct ones which are stored invisiblv within the text or within the 
image. 

7 fell (lie user the correct answers .md score. Repair the screen 

Do all of this m under IS program lines of code. 
Ihe last part tirst You put all your programming power into 
compiled libraries, not program- I a, It sub and definition ought to 
Stand alone for its functionality. Doing so. simple single-line calls do 
complex things A later improvement within a single lihrarv subrou- 
tine will be reflex-ted in every program ever written by vou thai 
refe re nces that library It i find abetter way to hyphenate, ever) 
program which calls for hyphenation will be improved, including 
programs which I have forgotten about. 

A good rule, it vou are having a hard time deciding what to name 
a sab, chances are that ii is a faulty sub. it should do one thing, nuking 
the name obvious If you are tempted to place the word 'AND 1 in a 
subroutine name then split the sub 

We begin with a library to wrap text around brush images stored 
in array form. The source code to ABrushTCxtWrapUb is included on 
disk along with a detailed documentation file 
ABrushTextWrapLib.DOC. There are. in this library, 21 mam subrou- 



tine and S delmitions which do most of the work mentioned above 
(and other things) 

Most' Well. AUrushlevlUrapl ib calls more essential functions 
from .1 other libs I wo are Ihe familiar {to system programmers) 
'amiga' and exec' libs and one is mv own ScreenModel ib' (which 
handles extended screen mode switching and array brush structure) 
ITieae 3 libraries, called by my library, in turn call -I more primitive 
libraries for deep and dirty primordial ooze functionalitv 

A few things about True BASIC: 

Example a simple function in this library. PoUlCharWidth 
returns the width of B character in .uirent screen terms Because you 
can designate the left, right, bottom, and lop window boundaries to he 
anything m True BASIC (left edge can be minus pi and right edge can 
be Avogadro's number) vou want to know ihe width of a printed 
character in terms of the current user declared screen dimensions Vou 
declare the values of the screen edges and ask the system to tell vou 
the number of characters thai Bl the entire screen independent of that 
Divide to gel a single character width Thai width can be negative or 
positive depending on whether you set the window boundaries with 
the positive direction going rightward or leftward 

A very nice Feature of this flexible window size value is thai • ou 
<.™ zoom images without changing the data VVh) recalculate the 

values of 1000 points for x,y. & / when vou < mi just change the values 
of the window edges' lour numbers, or easier yet 

ft ttlodc-n "ft* 1 1 • loom, migbl • too*, rtot * looa, "Top • loos 

I he space you allow for text and the amount ot text you wish to 
show in that space, often conflict. Vou now apply some rules ll there is 
extra room to the right of the text. ,U- we pad pixels to spread text and 
fill it? Well only if it doesn't stretch too tew words over tot. much area 
Apply a filter thai pleases the eye Filter? Any Set ot test rules which 
please by limiting an otherwise rigid rule Such as not il Old) two 
words' or 'not if text takes up less than ""■ o| the space' ett Anything 
VOU like 

A step info heuristic programming 

If the text on a given line would extend too lar and exceed the 
allotted space, break otl a pA'l thai does fit. It is best Is to break 
sentences at spaces Hyphenation is trickier because it defies simple 
nilesby way of numerous exceptions I'm no linguist I took the 
heuristic approach Dotonsol il by hand and I. AIIL I All: how bleaks 
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actually split words (.roup the results Into as tew categories as will 
cover the bulk of cases and make a lookup table to reflect ihis empiric 

result Nice You Jo not need to understand a phenomenon In ileal 

with it. Just keep aeon, Irus is not cheating [his is life We live and 

breathe by observation and correlation 

Mere is my last (|usi the most common splits) hyphenation 

Separate spans of letters of four sizes by nontext control code separa- 
tOTS shOWfl here as '*'. 

l:-|NC AAft OID AAA "nO AAn NES" ftfl ME\ AflA LIN flAA TAC"SIZE3 
2j"SUBPR1 \o\ 

DIS AAA TRAN AAA OVER AAA \DER AAA UPER AAA POST'" SIZE 4 
3: "BKMNRWZHCFDTPILVXY" with any two letters preceding 
51ZJ ; Of 2 

i GKMPQWRJCVDTSL" with any two letters following 2 

of 2 

Start looking Irom the right side of the line beginning at the point 
at whuh it exceeds the available space 

Oh by the way 

An aside. about strings True BASIC string handling is furiously 
[.ist fhc form is familiar to 'C programmers who use pointers 

1 etten in a string are numbered from 1 to whatever, no limit. 
Zero precedes the first letter m\,\ MAW'l M means after (he la-l (a 
built-in value equal to the largest number that the current machine can 
handle in hardware). 

StringSU;K| means the text from character position number I to 
position number K. 
H ABCDEFGHIJKL"|3.5] means "CDE" 
"ABCDEFC"|0:MAXNUM| ■ "ABCDEFt. as does 

\ik 1 '1 1 tl~(0 1 1 Mhij my number loo large grabs up to the lasl 

character 

Given thai SS MM DE", let SS|0O| ■ "123" produces s - 
"123ABCDE" 

Further, let SS|MA\\i M now produces SS- 

"123ABCDE789". 
Vet further, let SS|4:7] ■ "" results in "1231 



• IN 

call prlntta*1ITaitArrayllTI, 'black' 1 

•Od If 



T6 Check tor a three letter sequence "AIK '" in a string SS from the 



right 



for 1 . land!) to ) nip -1 

!l »M( lllJ-lrJi/UC' I • Ib.il 

call tayi-I found It. "I 

•Kit tot 

•ad II 



About numbers, do not worry about 'type*' of numbers (1\ I 1 - 
t .1 [i ni FLOAT etc.) True BASIC figures them out from context There 
are |iist strings and numbers Period AmyS Can have am ba»e 

You can have an array 01 five numbers starting from base -3 going 
tol 



tlill'l to II alio nlttM ai din IIOill 

dlai VcOi by 6>r*ult li ftoa 1 to * unlaaa you hM 

SIT Omoa UK Id -hlca MM It la (ton to '. 

ror t ■ LaVxiedlTMULrra)! I to nounddaitAitaySl 
If CCAIItl tO.tAirayKTHIilI • ■■!■' (Ban 

call ptlattntlToitAiiayliT). -Blua'i 



MM I 



Back to hyphenation: 

Say the sentence is "Man) have been hurt bj inflammatory 
predesignations about their ..blah blah" 

If predesignationsnnlv fits as far a- predesigfutio' then counting 

backward foe three-lette r sequences, from group one, finds no" 
matches as a hyphenation break point It we simply want to break as 
far to the right as possible, men this line would hyphenate 'predeslgna- 
'and 'lion ' would start the next line Some schemes do this rather than 
first look tor a close enough' ftpaCC break lopicxcnt too many 
hyphenations, some count how many ,\n^ disallow hyphenations on 
successive lines, every third, etc We will instead declare a larger zone 
for preferred line chopping and give space chopping first shot even if 
it is further left than a hyphenation break Don't like that? Change it it 
Space chop tails then Inphenation tries II that tail*, the attempt 1- 
repeated tor both, but further left 

A tour letter breakpoint, from gioup IWO, lie-— further 10 the left " 
I'KI '" liven so. a spate chop will be used if the initial /,>iw is set so that 
it reaches the space before 'pre I aiimg that, break between any two 
letters composed of one from group ] and the next from group 4. 

Recap Always break .11 1 space ii encountered rest a larger 
distance from the right lor spaces before trying to hyphenate It there 
are no Spaces up to this first limit point. look for hyphenation 
breakpoints instead If that fails, look further yet to the left for spaces 
and it failing look more yet tor hyphenation ! ast resort is to coldly 
truncate. In all cases one space b allowed lor the in phen 

therefore, we need two subs to divide a line ot text One b\ Space 
and one by hyphenation. Both conline themselves to the right sided 
range passed to them Both are called in a control sub with increasing 
ranges of text from the right margin (if line do isfon is not successful). 



/ aob SnacaCbopiPf tLlna) 



Cootiolt^e- 



\ ana onrrphmirciLiM) 

fhe calling control sub first takes can? of .^\ exceptiona] cases 
where chopping is not tooccur and traps embedded .ode in the text 
thai requests I line teed or form feed (user request, a vel higher 

priority). 

I sing an am) . ■> strings to hold various line 01 form feed 
sequences a lows user designation of personal codes as well as those 
hard coded into the scheme ihe hard coded ones are < HKSflO). 

CHRS(12). and CHRS<13) Thee are hard coded b> simply priming the 
amy with them Next tear you might consider adding others,. Code 
modularity makes it easy 10 Hnd where and remember how 

•Ob fatLlMFaadAliay I LFAJ U . Tot LM. Ta«tFF| | 

1 tbla aub aati up and prlaaa an im| la hold 
• Una and (ot* I»da 

I to Altai built in LF of FF .-•ir-Mn. •dlt baia. 

' ■•■aiMr tba lewar bound of tba at ray la not 
1 llnltad to laio. 



•M LPAI • "illHill 1 1 a S . U»D. null la ignorad 

lot LTUIOI ■ •LFTFMT* I LAVXMD Flag to tall lub tbat 

: array la prlnad. 
r LIMI rns coon 

lit LFAf ill ■ TutLFl I Dili CBJOICI 

lat LFA1111 • cnniei 
lac i.F«fiii ■ cwitiii 

1 re** rno codm 

lat LFAfltl • nnlUJi 

lat t-F»l(M • TaitFFl 1 Mil CMOICI 
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•I* tub 

Bub FaiiaTait Hnir.l. TaatLPI. I W fF I , tfunfhara.KyptiFrt. 
•JnaLFFF, FragBafttli 

I To avoid Batting up LloaFaad Array, 
< Tfcya la a 'front and' to 
! tub Par«aT*atOn 

dla LPAf 111 

Fall latUnaPaadArray ILFA!. Tall LPS. Taat PPf.) 

call Pa raaTaatOt Icurcal. I.PAS. H.^Chala. HyphFct . 

MaaLFFF. Frtaaantl I 

and aub 

aiib ParaaTaiieiaeurcat, LFAtO ."uaCbata. KyphFot, 

MaaLPFT. Fiagtatntfl 

i Tbla la the Bala Ilea split cor' ■ 

r H (alia (or apaca chop* and lor bypbanatlob. 

• Hon aariy IKHn are allowed at ooca • ttuacbara 

i rou aaad tail aa lourcal lean ba pagaal and It 

i cha-a off that irblch rita tratarnad aa Fraaaaot'). It 

t doaa not actually print. That attends Modularity 

i nany ilnda ol prograae aay ha>a apaclflc naeda 

i foi printing. One Jobr epllt. 

' Tba callar to tbla sub Bay mnt (o 11110* il 

1 tba apllt •«■ by -ay of -r or ft coda M aa 

1 to bandla output to acraaa. -• lasLFFP 

1 lb caaa an uiprlatal Una feed array la asnt. 

1 thu la filandly. 

If LFAIIL*Ou>d<LrASI> •> -LPPPMT- than 
call BatLlneFeedAiraylLFAl." **< 
■ed If 



lat nag* 

lat LS . lanilourcel 

let ...LFTF ■ 



ntf - 



lat LoueBtLFpoa " «*J«U*. 



Flag, alal 01 taat tabaddad 

IF or PF found. 
Flag, lnltlaliia bigh 11a 
1 Scan Una for lf or rr 
1 breata and uaa tba Boat 
left ona (loawatl, 
loo* rou a tut inrceiD lint oa pobji chop 



lor Barter . IftoundlLFAl) -1 to tfBound I LF*1 I 

If LFAflKariei) -. -- than 

lat LPAtpoa • poaiiourcatlliMuBCbaral. 
LFAIiaarkarH 

If LPAtpoa ■ thee 

If LPAtpoa • LowaatLFpoa tbaa 
lat LovaaiLFpoa > LPAtpoa 
lat VasLFFP • Marker 
aod It 
and If 
and If 



■■scan un atop rorare. auou IT JUfB BIT 



If WaeLFFF > than 

lat Fragraantl • loutcefll 1 Loa-eat LFpoa -II 
lat ■oarcallliLovaitLrpoa ■ laBiLFAIOeaLFPFI |-1| • 
arlt aab 
•ad It 

I It tart doaa not exceed apaca. clean up and laava 



If LI <• ■uaCbare or *MaCtais • 1 or LJ • I than 
lat rragaantl • foorcal 
lat Sources • " 
• ■it Pub 



1 Taat apaca la to fill bafoia allowing hypbanat lonf 



I 

It XypbPct • D tbaa 1 nog val. tat default 
lat Hyphenate • .1 

llM 

lat Xypbanata • atnlflyphFcl. li 
«M II 



I — 

I POLL OPT Urt COOES FOP, TEXT HOT TO at rOnUTTWD , 

I Tbla «ay IICEED tba dlaanalona lot printing aa it 
1 la coda sot to ba prlntad but paiaad for prograa 
1 Intarpratatloa aod action by tba callar aubroutlna. 
I Tba ASruahxrapTeat auba handle taat which Bight ha»e 
1 aa eBabedded segraant -.F»o*PT. «ttm.»r "Mlartr. . . V- 



lf tourcalll;!) . -.raeBiaT.- tbaa 
1 Just oea •atapl* 
( Pull Off Pull Ftoapt. of any langth 



! tbla Hat can gro* 

lat andraK ■ poalSourca'. -v~ 

lat Pregnant 1 • Source* 

lat tour-ell O.endpa-1 a 

Mil BUl 

d II 



: 

1 Mala aa upper caaa copy ot tba aourca airing 
1 to tba Baalaua allowed print langtb only. 
1 Do taata on all upper caaa for aaaltyi 



lat Taat* . JCASIKSourcalll 



-HI 



1 Plrat Paaai 

t Try apaca chop at Boat right portion ot Una aa uaar 
1 ra-juaatad. If no apaca to chop at than 
1 try hyphanatloB In aaaa 

1 aona. Mg'ra calling that 100a 'Hyphaoaia' . 
1 It la for botb. bara. 
1 



call SpacaChop ( Nyphanat a ) 

' Baaa ranga aa bypbanation ion* 

t It a chop point m found, tba aourca string *U1 

1 ba aaaliar and tba fragaant. to ba prlntad. 

1 olll hara acaaathlBg In It. 

tt Fragamntl • " and Hypbasata > than 
t Spaca chop fallad 

call DoHypbanliryphanatal 
Ilaa 

BKIt BUh 
■bd II 



ip nut. A*ovf p»iLia. 00 nou urrwJD. t*» aoaih 



1 could loop atapalaa to latt. 1 ]aat gl«a tba Bona ona 
1 (hot than taka a leap to tba latt 1)0% froa lafti. 
1 Tba .) choica la arbitrary. 



ir Pragaaetl - •• than call JpacaCbopI .11 alt* ant Bub 
If Fragrant! • -* than call DollypbaBl.il alaa aalt auB 
It Pragaantl • -* than call IpacaCboplDI alaa salt aub 

1 I v| OP, J05T CHOP IT. (but naad apaca for tba '-*1 



lat Pragaabtl ■ iourcaj |1 muKhara-11 a --- 
lat 5ourca<[liouaKhara-ll • -' 

aub aparaChoplPctLIbal t local aubaub 
1 pet -• rnaabar ot char a 
lat Tan • InKnuBChara ' PctLlna) • 1 
for 1 • nuachara to BlnlTara.DUBChari) atap -1 
If Soureatllr II • • • than 
I loud a apaca 

I nota at ring bafora tha apaca ■ 
lat Pcagstaott • aourcet[l:l-l) 

1 dalata It In aourca 
lat Sourcalllil) ■ ■* 

axlt tor 
and If 

noat I 
and aub 

tub DOKyphaaiPctLlBa) 1 local aubaub 
lat Tan • lnt(nu*cbara • PctLlMl • 1 
For 1 • nuachara-1 to avlntTan. nwncaara -II atap -1 
lat ) . l-l 

lat Pratlp ■ poailaat t 11-1: li .- -) I 121* 
tat Poat»p • poafTaatftlilO).* -} 1 '13 

I IW FOLLOaHUO COM II POajUTTIO OOOLT Poa CLMITTi 

I actual uorKlog coda la atruog out 



If 



poai-naj-olo-TIO-flTI-MJI-LIll-TAO-.TaatSii.l-J} I 

ajro Praflp ■ 



poai- 101 m km CIS-T*^-cw-fB--S9-0Tn-Nfr-. 



Taat 1(1- 



(I'll > 



us r qb tip • 

1 



OH I 

poai-MWl*«llCFOTPJLvy,T-. TaatllJilll 

AMD 
r>oa(-COuOO»-aJCVDT*L'.TafltI|l!l|) > 
US 

(Praftp • FoetSp • 01 
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' HyrAecate. but Ural 

! Handle epeclel mWin and punctuation caiee. 
I nil Hat MV gr<n>. 

I 



It IourceI(J-l:J«Jl • ■ " inen 
! lid alngle char orphan* 
lM Pregnant! . loiios [lijal| 
lat lohrcalU'W) • " 

alia II pNl'-.Hhl'.tMfMlIJallJall] • than 

l «ld .a&tenc* and clip. law id (It 
lat Pregnant! . Source! 11 i ].J] 
lat *oureelIl.)-JI ■ " 
aLaa K poe(-..i iT— l*.*OMWHl»*i)»t]l > ■ the* 
■Id puoct orphan* 
lat rrae*astl ■ tourcettli J*II 
lat SourcellliJ.I] • " 
•1h 

i Original Algorithm 
lat rregneot! • lourcettl 1! a --' 
lat taircaflM! . — 
and II 

HUI (or 
tod If 

Meat I 

and .-b 
and aub 

Mo» (hat the Una la clipped to (It neatly, y» night luetttv It *lthln the 
deal red print apace. You nay decide only to allow 10 letter* in a apaca that 
■ lent be abla to bold U Ineigln* ate. I . lavp clip and luatlty apart. 



jsnn WT' in oiumc cu n pT 



Conalder I 

* ipecetoflll »lth tail. * 

' l •• nara-. jl char* 

I apK.TO-111- - ■ XI 

t Paaa 
* • Lalt ado* and allowed apen (IpacaToFlll I 
I • Left edge and II . right edge 
I • Left edge and Char* to allow on a Una. 



I All ) define inn awe apeo 

i Several ala.e r,t* allow the hi 

' prog ran •••• of variable handling 



d iufi to be called according to 



■uDflotJuit :( :-l>«.ISp(l!tal.I.T.YO(f. Ch", IpaceToPI 1 1 . 

JuatPct. Marginal 
! JuetPeti i0 ■ default Itloe of »0\ teit.-< to 100*. 
■bete teat Hiu packed nonepece 
character* i 
I o • Mo justification 

Oxl • paaa \ of line teat to -> Jaatlf Icatlon 
■ ■1 • Man of end apace* to -• joeti fleet loo 
i Hargln* ate atated Id ounce r of character* 
I.S, 1,3 ate.) LAI. 

! »Of( generally • 0. If not, teat la plotted twice 

I wltb thli ofraet 

i aucn ea 1 pliel to reduce flicker Id interlace. 

1 Strgf the paeaed airing. 

i Plot ten atartlng at 1,1 

i Plot It again. ■eybe. offaet vertically by 

l Yoff to kill flicker. 

I Tell thit aub wbet the Character width la eo it need 

i not ref igure over and over It called In a loop. 

! (peceToPUl • graphic tana, the apace avail to print 

i Margin*, a* chara 

l JuatPct, r Jultlty at all or 

i 1-at when to do It or He low. 

dla AlivOl I up to »0 -worda- on a line. 

i A 'word' ran be 1 char, 
i "ork with a copy. trta> off trailing apece. 
let String* • PTrlnlfltrgli 
lat td e lan(Krlngl) 

i Trent left apaca an flra. 
i It la an Indent not to be Justified. 

let )| • LTiinf Utringll 

lat Indent a III - lenlSIH • Cnw 
lat Act- • abaiChw) r Caw caa be negative In True BASIC 

lat AipeceTortll - nbetSpeeeToPl 1 1 1 t left can be 

I • than right 
if narglaa <• than 

If Margin • then 

i clip off nargln apace (Int. 

lat AJpeceToPUl • ASpeeeroPlll -1 • AChw • Margie* 



To do or not to do — that is the question 



Roy M. Nuzzo 



[rue BASK has several vert, off -beat .mil u^trful extensions 

1. There are scripts which behave like batch Net within the True 

BASIC command window 

2. There is the extended use of dined command mode which 
allows us*- of libraries directly, without need tor any programming 
rhis can he used as the ultimate desktop calculator But how Ao von 
keep i written record oi it? 

3. There is the "ECHO' (unction which acts wa stenographer for 
the command window and cm divert ■ cop) of ill command window 

text to a Hie or to the printei A paper trail 

4. There are "Do Prograrns" whkhacl in the background and 
have theabititj to look at and read to and/or alter programs currently 
m the editor or do whatevei i be a prograni might he a-ked to Jo. 

This piece will familiarize von with the last two. 

Scripts are |us( text hlesol commands as they might tv typed 
diredly into the command window. They are acted on u il the) were 
directly typed by yon It von want lo keep a record ot this beyond the 
running shell-like list ot old actions kept automatically bv the 
command window), then uisl type "K HO" 

ECHO defaults to the printer Anything tvped or printed to the 
command window also appears at the printer ""ECHO TOillenaane" 
create* a te>t Ale which ba (He version oi the printer output without 
the printer output Then I do a series of commands relating 

implex Calculation, ill c4 it is recorded for you. 



"ECHO OH shuts the echo tunctkai off. 

rptscan turn I I HO on and off, as they can perform an) 
command 

"Do prtJgtams"' an verj handy and interesting Any library can 
be made to ad as a "do program" or better yet be called bv a Ao. The 

do' ha- only one ironclad rule The argument list of the very first sub 
(must be a >ubl must be .1 single dimension Btring array fbuowed by a 
string: 

EXTERNAL !< — Indicates a library without program code to he 
executed 

sub MyDot.in.r- 
code 

end sub 

other suhs and functions mav follow 

The do' sub, the tu>t one in the library, is activated when the library 
name is evoked bv a 'do' command. II the above library were named 
( .in/ then .i command 'do Glitz 1 would automatically actuate the 

•■.Dot) as a background task \oiue that the sub nan 
irrelevant It is -imply the tirst sub and it has the needed two argu- 
ments H pi, .ilk yOU write llus sub as it it were a program The 'end 

statement b Ihe 'end' statement, 
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l*i LN • cnv • Marglna i ■•< on X to plot tun 
I at. 1*11 Higin. 

•lM 

! da fault • I thai 

lit U • Da 
•ad II 



in a - * • JodnQi • ur 

■aiact caa» ;bhm 

c»i« ii • s i 3i» default 

I lit spToJuat • 1 •(.!• • tiotaicnaral 1 

lit IpToJuit • J .I.U ■ IUpac*ToPlll / ACnvl I 

lat Tilaqar - AIpacaToPIll - ACbv • IpToJuit 

caaa i Justify I* oft. Do •• la. 

plot !•«. at X a I*, f , fttloof 

If TOff •• tnan 

plot ten. at 1 >ui. 1 -topp i firing! 

•ad If 
Hit .-! 

CAM la • > 1 I • of Cnara at ml to -• Juiilfy 
IK Trlaoii • ftSpacaToPlll - ACbv • Jui'.Mi 

fan alia 
1st Tflojai • JBitfct * AlpacaTorill 

tod Salact 

•a 

lat g . poa(Bl.- -I 
lat words ■ void* - 1 
It p > tnan 

I COLLKT SO«D«-> Ul UIAT Win IPACU TMH9 
I MlBM CM IPACU IKTWRK ■OHM 

lat Alivoids) • TriaKSClip-lll 
lat SI • Trlftfdt tp>liNUa*Bf!> 

•In 

IK Alivoids! - It 

•od 11 

I TALLY TOTAL C&UAC-tM >!«> TO IPACl HT-IIH 

i mi is ft totally in mitmo ECHINI. EMPIRIC 
lat HonlpCnai* . aOalpCnai* . lan< Attvorda) I 
loop mile p • s 

lat ACnaiPlll . aooSpchar* • ACbv • aballadaatl 
if ftc&airill .» Trlggar than 



l If thn aolld mi Ibofiapaca) ncaadi tna ,m 

1 la-juatiad irlogai than go anaad and aapand tfca 

i apaca batvaac void*, by pl»*l*. 

1 I » trlgaai] 

i t-.lnynanal*r(ad."natlayouraanaT | 

I |«- AcbaiPlll ---.i«- Tota'.Spaca -.1 

I |« ay hm la rtad. an* ( la youi naaa'l 



l waeia Totalspaca li total apnea to ba uiad up by 
I void apaclng, flguia ipaira aaad*d tatvnaa aach 
' void to aipaiw] to right adg*. Por aaaa. uaa th* 

I abaolut* val of tna pilot loca langin. I 



lat Totatfpaca * AspacaToPll 1 • ACnaiPlll 

i Don't Justify I voidi, navai looka itgat 
If void* . j thso 



I tat tba apaca polallty to that of tna alga of 

i the char ■Idtnt 

I Bach apaca > total apaca dlvldad by word t intai 

i ft— a atf v ir tbat tna laiarval count bataaan S 

i tlngnrs la 4. 

' lat lachlpaca • (go I Cnv > 



iTotalPpac*/(vorda<l 1 1 
•In 

lat lachSpac* • Cnn I normal 
■od It 



Ileal* chaiactai 



r Hot ona word at a una and add Its following 

( apaca, than nova tna laft plot point to that ipot 

i and do oast nord. Tna fliat void start la flourad 

t abova. Ju*t aova it along. 



for v - | to voids 

plot Mat, it O, 1 i ftllvi 
If TOff is th-n 

plot tan. at W. T • TOrr i All-' 

•ad If 

lat n . a . laeiAllvii • Cn* •lachlpac* 
i "ploti ••■idth of void "aidtft of apaca 



(continued on page 74) 



When the sub Is exiled, tte editor bceomaKthv once again (it 
freezes during the action of the "do' program 

You pass one argument to this sub It you supply none, then a 
mill Is automatically passed You do no) pass anything to the arnr) 
Hit- array b supplied by the 'do' otechanl i Irtercron it you 

from the command window, 'do Glitz. "Hello Pred "', then the 
SttingSargunkinl would carry "Hello [red " \$ far as the call is 
concerned, there is only this one argument the simple string argu- 
ment 

I h.it one Mnn^ can K^ huge .ind f.irry .ill sorl> t>( numbers and 
string and character values within it, as True BASIC has very refined 
tools lor loading and unloading complex data liom sirings You 

-\ item programmers will note that strings an used to form 'struc- 
tures' when they are needed and this means that they Can he Window 
Structures, Viewport Structures, you name it Structures, whatever 

The Une$0 array is automatically passed. It- lower limit isalu 
1, and its upper limit is,-i|ii.ii to the number of lines of code currently 
111 the editor Line$(l) carries the first Hneofcode, i Lne$(2) the second 
etc. Tin- is ii. ■ • the code m the editor, ii y ihecode It vou do 

neat things to miscode, vou do neat things to the actual program m 
the editor 

l ike what?— like remove or alter remarks, or look for special code 
within remarks to causes fUe to be created (auto docs} thai update 
programming documentation Oi alter spacing and capitalization to fit 
a standard lor style ol the code Or strip < HR$(13) from the code (load 
text tiles from IHM to Amiga, you may need tOget rid ol the extra 
( HKSi I ))s trom the IBM world) Oi stripoul tab characteraand 
replace each with three spates (hello > Cedit people). Or use as a 
preprocessor swapping tokenized code tor expanded code I lere. the 
algonthims f,n the swap can gi Slid as dangerous, as you can 

stand 



Here are ■ fr* examples: 



i -sttip ij.rw 

I This fit* Is aavad a* Strip ll.Oo' for soorcs flla 

I but la coapllad for* aa Stilpll' la tba TatQ diavai. 

I To uaa. typs 'do Itilpll' treat tbs isiiiil lias or diet on it 

i from tna smu iaqua*tor for 'do' fllaa. 

I Tna flla la tna adltor vill hava all CUKllli raaovad and tna t ok ant 

I that Indlcsta tnali prasanca "111 dlsappaai ftaaaTa If yM 



fut ftilpl) DOiltnalo. argil I will ignora argl, Iiiala*am 
daclara daf ftafoial, ftftail, PHapCkarl 
for 1 • 1 to onoutfillnatl 
If poaillaa||li,cnltl)l) • D tnan 

lat Haaldl . •vapCnarllllnallD.CMIKDl.-'l 
and If 
aaat 1 

ES» aatoratlal.vll t COST OP ftLL CRWS UTOM vj 

lat p > poaial.-l) 
If P • » tnan 

lat SafoiaS • " 

alia 

lat ftafoial . alllip -1| 
and It 
•addal 

dsp attains*. >ti i con or all cram aptui •* 

i -KAjortjar la a Traa basic constant vblck ratv.ro* 
' tna laigaat suaoVar that tba coaewtar you rmnolag 
i can handla lagally. Dood oppar Halt for atrlnga. 

lat p ■ poaial.vji 
lat 1 • laaivii 
IE p - than 

lat ftftarl ■ -* alsa lat Aftarl • altptliiuuiunl 
and It 
•ad d«f 



(continued on pag\ 
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anQmoaaon© 




Using the Amiga 500 and now my newly acquired Amiga 3000 
for computer simulations is one of my favorite pastimes. The speed 
at which these machines run, coupled with 32 colors, make for very 
interesting displays. And with the computer you can easily change 
values to see what effect new parameters have. In this article we'll 
do a simulation showing how a virus can spread between cells. 
Values to be used will be passed from CLI/SHELL with the pro- 
gram name, and I'll show you yet another PSET routine. 



EanoQraonG 






QffiQonDaG 




40 ACs TECH 



The Simulation 

rhe simulation we're using was first described by A. K Dewdnej 
in Seknttfu American (S, 1988). An array is filled with cells on a random 
basis with values Ironi lo 5U Based on the relationships described 
below, new cell values are computed, stored in a second amy. then 
transferred back to the first array. Cells in the first array ire colored 
according to a color scheme within the progum 

Each cell is considered u> be in one of three states depending on 
its value. A cell with j v.ilueof o is HI Al IHV. a cell with a value 
between 1 and 49 is II .1 and a cell with a \ alueot 50 is Dl \D \ dead 
cell will become j healthy cell at the next gener a tion, that's the easj 
one. To discuss the next two states we need to le.im ■ few variables 

AA number ol ill cells, not less than 1 

BB - number of dead ceils 

Kl - .i weighting parameter (2 is the default value) 

K2-a weighting parameter (3 is the default value) 

GG - the infection constant (use 1-20; 6 is the default value) 

s - -.um ol .i cell's value plus its (our neighbor values 

The formula lor the next generation of ■ healthy cell (value 0) b 
lNT(AA/KlHNT<BB/K2).Generalh. keep Ki and K2 between I and 
4; of course, don't let one of them ever be 0' The formula for the nod 
generation of an HI cell is INKS. AA)*GG U this value, however, 
exceeds 50 the new value will be 50. The program will wraparound so 
the right neighbor oi a cell on the right side is actually the cell on the 
left side and vicc-vetsa; the same appbef to the top and bottom. With 
these three rules you can create patterns ol continuously changing 
color, some never settle down while others become ever growing 
spirals. 

listing I is the progr.im for this simulation Since the test ol each 
cell and the computation of the next generation cell is the mOSl 
important routine. I made this .i macro near the start of the program 
You could have it as a subroutine instead, but then the current 
program address must be saved each time and returned; since •■ 
got the space. I used n as a macro. Because I EST is the heart ,^l the 
program. Ill go through it in detail. 

The Macro 

The four values passed to 1 1ST are the locations of each ol the 
four neighbors (above, left, right, and below) in relation to the current 
cell, the value oi the current cell is in dO. Since MOVI: affects the zero 
Hag we i an check right away and see if the current value isil. it so. 
branch to HEALTHY It it 's not 0, compare the value to "«0, il it's not 
equal branch to II I [he only choke leti Is thai the value must be 50, 
so store the next generation's , ell value of in d0 and branch to 
rcSTDONl 

If a cell is HEALTHY, first ptlta 1 in A A (its value is never less 
then 1) and a Din Bit Next, move a neighbor's Cell value into d I If this 
value is ii. go urunediatcly to the next neighbi nee ■ zero 

won't affect anything l lowever, if tin' neighbor's cell v slue is 50. 



Increase BBby I, else increase AA by 1. After all four neighbors have 
beer i . Ide AA In Kl and BB by K2 then add AA and BB. 

[his new value will be the ceil value loi the next generation 

..(I test is inr m II I Cell. Again, put a I in AA; WO won't be 
using BB this time Get <i neighbor's cell value indl it it'sO. branch to 
the next neighbor check, if not. add the neighbor's cell value to the 
current cell value. If the neighbor's cell \ alue is 50, branch to the next 
neighbor check, else Increase A A b) I. Co through all four neighbors 
Dl the same manner When you've mushed, dO contains the 
neighborhood s sum and AA is the number ol all ill cells, then divide 
When yOU have tO have [Manned ahead 
1 kept the maximum cell value at 5(1 since, at this point, the 
neighborhood's Sum mdiKould be 49*4*50 or 249. While you could 
squeak by USing 51. larger maximum values vould result in a dl) value 
greater than me byte NeXl you would add GG to the division result 
and compare the total to 50. But it the result in dO was, for example. 
245 and you added aGCol IS the byte value in dl) would be 5 and thus 
would appear totv less than 50 when it s actually 2t>0 Si I first check 
the division result against the difference between 50 and GG ii Ifa 
greater than this, adding GG Will make the result greater than 50 so 
put 50 in dO as the next generation's cell value it the value is not 
greater than me difference yOU can tafclv add GG and use (hi- as the 
new next generation's cell value 

The Listing 

Mow let's look it I bring l In more detail Since they're used so 
often, I equated AA and BB to registers dl ami d4 as well as equating 
SUM, M ROSS, and DOWN to their registers The length ol the ana) 
must be a multiple of 32; more about that later when I discuss the new 
I'M I routine Several variables are equated to the length (LENMi. 
I l SUM eu | as well asthesizeol the array needed. I'll explain the 
other variables when we get to PSET. Next, there are several tnacrosas 

well as the II s ! macro 

The program starts m standard fashion opening the Intuition and 
Graphics libraries as well as a 320x200 16-color screen mu* window 



TABLE 1 




. 


ki K2 i.e. 


Kl K2 GG 


Kl K2 GG 


1 4 h 


2 2 10 


3 1 7 


1 3 5 


1 1 5 


4 1 3 


3 t 15 


1 1 10 


2 3 6 
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I lu- RANDOM routine uses the CIA register to fill Array 1 with 

random values between and SO. The nexl p.irl ot the program reads 
th.- values you passed, ii any, along with the program name. Enter 
values tor K1.K2. andGC. separated by a space or comma, lor 
example. SICKWELL 2 3 6' or SK KWl 1 I 3X18* It vou don't enter 
any values the program will default to 2.3,5 respectively 

When von enter values in this way at the start of the program B0 
contains the location of these values and dO contains the number of 
Characters entered Tlie first two values must be one digit each while 
the last value could be one or two dibits I haven't included any checks 
tor incorrect values. I'll leave that up to you. You might also want to 
add a routine allowing for a "?" instead ot a value and then have I 
message printed reminding you of what's to be entered along with the 
acceptable ranges 

Now the program must check even* cell to compute its next 
generation value. To accomplish the wrap-around there is a separate 
routine for each of the four corners, top row, bottom row, sides, and 
center square. If you use a length of 32*5 or 160 the top row actuallv 
goes from to 1 59; the nest cell in the array is 160. The four neighbors 
Of the upper-left cell (cell 0) are located at LEN'LENMl, LENM1. 1. 
and LEN (top, left, right, and bottom) away from cell 0. The neighbors 
tor the top row are I 1 V! I \M1.-1. •!, and LEN away from each cell 
The neighbors for the upper-right cell (cell LENM1) are LEN'LENMl, - 
I, -LENM1, and LEN. For the center square starting at, ell l.F-M'l the 
four neighbors are -LEN. -1, -1. and LEN away. It may be easier to 
draw a box. divide it into smaller squares and label some of the cells to 
see the relationship. |ust remember that the upper-right square is 
l ! NMI. 

Another PSET Routine 

When all of the new cell values are in Array2, it's iime to transfer 
them back to Arrayl and PSET them. I said that I'd discuss another 
PSET routine so here goes. This routine is based on the "East fractals" 
article in Amazing Computing (V 4. 11) and a program sent to me by 
Stan lurgielewu/ ot Virginia Stan is a real renaissance man and an 
expert at just about everything He doesn't hesitate to rewrite my 
programs in five different ways showing me better methods to do 
everything. 

This routine tills data registers with 32 values at a time and 
actually pokes them into the proper screen locations. That's why the 
arrays must be multiples of 32 across Different data registers are used 
to hold each of the four bits that make up each color. Since the 
hilplanes are an equal distance apart (SI F40 by test we only need the 
location ot the lirst one SUM contains the current color. Rotating it to 
the nghl moves the first color hit into the X bit of the status register, 
rotating a data register with X carry (ROXL I.) brings the same Ml into 
the datl register II there are lour color bits, you must use four data 
registers. Do this 32 times and each of the four data registers contains 
one long word of the color value for one bitplane. 

Now we have to poke these words into a screen location so we 
can see them, but where? When we PSET the random values each 
point was at an XOFF «320-LEN)/2) and VOFF <(200-LEN>/2) to 
center the picture. So lei's compute the byte that contains these two 
offsets. There are 40 bytes [neach horizontal line (320/8), so th 
bvte in the row we want is YOFF'40. The XOFF is how many more bits 
in we go. and since there are K hits per byte, divide the XOFF by 8. Add 
the two values together and that's the star! ot the byte WC need. I 
defined this at the start of the program using BYTE EQU 



fY( ffl ■■120.XOFF)/8. TO access this location put hitplanel address in 
Bl and offset it by byte (I FA BYTF(Al).Al). 

In get the color, MOVE the entire first bit register into at, the 
second hit register intoal -S1I40. the third bit register into al -S1FW2, 
etc Actually, do this in reverse so you can end with "(Al)- ". automati- 
cally increasing al by a long word How main tunes do vnii do this 
across' I use the variable WI'I. (long Words I'er 1 me) which is |ust 
LEN/32. This is the number of times we'll poke color into the screen 
location going across 

When you finish a line, where is the next byte? A full-screen 
display would continue on with the next byte but we need to move 
enough to reach the end of the screen and go on to the next row's X 
oils,! Ibis distance is 2'XOFF in bits, or 2'XOFF /8 bytes; 1 call this 
variable BYTEOFF. Using these variables and always making the 
length a multiple ot 32 lets von automatically display different si/e 
arrays without re-computing all of the variables Keep the length at 
5*32 or smaller Vou must re-assemble the pnigram to change the 
length 

Since state zero Is so important for cells in the array it gels its own 
Color; any other state value is divided by four and increased by one to 
get its color I wrote this program on m-< Amiga 500 having it switch 
array values before showing the new color llus cuts down on the 
slight flicker as the new colors are PSET. For faster computers you can 
eliminate the SWITCH routine and combine it with the new color PSET 
routine. The program keeps running until vou press the I MB Alter 
typing in Ihis program save it as SICKWELL ASM; assemble it with 
A68K and BI INK II using S1CKWF.LL.O. Run Ihe program as 
SICKWELL |KI K2 GGL For your convenience, I've included A68K. 
Bl INK. their docs and the assembled version of SICKWELL on the 

magazine disk 

Table I is ,i list ot some in te r e s t in g combinations for Kl, K2, and 

CG. Try your own combinations; running the same combination 
several limes in a row may produce different results each time due to 
the random distribution of initial values, 



Listing 



,-LISTINGl 




equal as i 




depth 


■ 


jam2 


' SI 


mouaebuttons 


= SB 


borderless 


-- $800 


ww. screen 


= S2o 


ww.rporc 


-- S3? 


nw. screen 


= Sle 




* S10000 




= SI 


chip 




fast 


» S4 


clear 


= S10000 
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(ffiWMM 


/^//z///////^j/4//////////////^///^/^//y//^AZ^///z////^///^//////!^/^////y/^/d^/^£/^s/z/A 

111 II 1 V iVV ' V¥nw.WV.WJ"VlI.WI:l>w; 



A 4000 Computer 


2S99 


A 2000 Computer 


899 


A 1200 Computer 


599 


A800 Computer 


329 


1980 Murine Monitor 


499 


2024 Monochrome Mon 


199 


ASM 20MB HO Syalem 


239 


AS70CDPOM 


41S 


CDTV 


574 


1084SMon«or 


279 


A23Be25MrBndgecard 


499 


A2320 Fitch iwFi*er 


14$ 


A2232Mutt.Serialc*rd 


745 


A 520 Video Adepler 


29 


A 2088 XT Bridgecard 
A20S0A Hard DnVe 


M 


Controller w/45MBHD 


149 


HD Floppy Drive 1 78MB 


99 95 


CBM CHIPS 


Kichelart 2 1 Upcjmde K« 


85 


Kk**tart 1 5 


M 


1MB Agnui (8372A) 


Cal 


2MB Agnus (83728) 
S«»w5enhe(8S731 


79 95 


33 


Paula (8384) 
CIA (8520) 


u 


9 95 


Gary (5719) 

2820/2630 EpromKI. for 


14 95 




CBM Accelerator 


u 


Grsi-1 SUm 


229 


Grand Slam 500 


287 


Trumpcard Pro 


139 


Trumpcard 500 Pfo 


??5 




Cull 


Trumpcard 500 AT 


164 


Meta4 Memory Card 


M 


Print efface Auxiliary 




Printer Port 


55 


Source) Switching 




Power Supply 


QQ 















ASD0 HDS'OMS'O 


3*9 




PC286 Module 16Mhz 


>09 




A50O-HD8'0MB/80 

A500 HDB-0MB/120 


42S 
479 


A1200 SCSI/RAM* 


Tahiti- II 1GB (35ms) 
Tahiti II 1GB Cartridge 


3300 
299 




A500 HDB'OMB'213 


599 




Syquest 44MB Removable 275 




A530 HD8-1/120 


759 


QFortt Accelerators *rU0»,MII2, 


44MB Cartridge 
Syquest 86MB Remova 


65 




A530-HD8- 1/2*5 


Cel 


(5-i RAU. SCSI Controller. 


>to 385 




A2000HC8'OMB 


149 


RAU Card In One 


88MB Cartrtdge 


119 




SMM32/lMB/60ns 


59 95 




ImpaciXCErt caae 


250 




SMM32MMB/60ns 


184 




FaaastROM KM 


35 




1MB SIMM GForcoA3000 Cel 


40Mh*;4MB 895 


Ctnemorph Software 


109 




G-Lock Genlock 


399 




Phonepak VFX 


379 




A3000lmpao1 Vh»lon 24 


1675 


68040 33Mh/ A2000MMB 144S 


DSS8 Sound Sampler 


74 




A? ooo IV24 Adapter 


39 


68040 28Mlw A3000/2MB 


I/O Extender 


195 




VIU-CT 


'99 




Image F/X 


239 





C S A 

Running at 25Mhzw/MMU 

4MB 32blt RAM Exp. to 32MB, 

W/68B81 $499 

w/ 68882 add $75 

w/68882-50Mhzadd$150 

8MB version add $199. 




SL INGSHOT 

9INQLE A7OO0 
SLOT FOR TMC 

ABOO 

$39.95 



MICRO FAN COOLING 
KfT FOR THE ASOO 

$39.95 



QWIKA 

SWITCHA 

4 SOCKETE0 ROM SELECTOR 

$39.95 




FOR THE AMIGA 2000 



TESTED a CLOCKED AT 7* MHZ ■ W/S8030 * 6IM2. EXPANDABLE 
TO 32MB RAM YV7 SCSI CONTROLLER FEATURES PROPtBX, SCSI 
SHARE.- NETWORKING. RAM a SCSI USABLE IN BIO0O MODE 



II! 



HARD DRIVES 



Quantum - Connai 

Seifia*>tei - Fujitsu 

Wasettesrn Digital 

2.0V and 3.S" 



fir. 



US ROBOTICS 



IBSKCounerHST 

with lax 595 

1 8 8K Courier HST Dual 
Standard with fax 925 

Courier v 3 2b is 449 



A2630 Accelerators 

68030/68882 25Mhz 

4MB 32bit RAM 

ESS $499 



MEMORY CHIPS 



rvS 1MB SUMS 


29 95 


HB80 80naSWMS 


Cal 


4x8B0 80naStA*S 


Cal 


1x4 80 eOna Static ZIP 


Cal 


U4 80-60n*P»geZlP 


Cal 


1x4 80-eOne Page DIP 
1x1 100-70ne Df» 


Cal 


Cal 


258X4 80 SOna DIP 


Cal 


258X4 e0-80na Z*» 


Cal 


A4000 SMMS 


Cal 



A600/1200Acceaor1*e 
PCMCIA 2 and 4MB Cal 

MBX1200 Cal 

Baseboard Cal 



LASER PRINTER MEMORY 



HP II, ll D. IIP, Ml, MID, IIP 
AND ALL PLUS SERIES 
Boafd with 2M8 
Board wilh 4MB 
Deskjet 258K Upgrade 
2 Boards (tor 500 Series) 



Ineider II w,W 
2832 wMMeoabyte* 
MegAChip 2000/500 
w/2M8 Agnus 
MuRi-Stari 2 Rev 8A 
Kw*St*rl II lor A1000 
SecurKey Security Board 
Ban Drtk battery bached 
flint k RAM dfak 



87 50 
145 

89 95 
130 



159 
399 

289 
54 

89 



M 



ACCESORIES MISC. 



Kick Bach ROM Swlcher J5 

PowerPUyers Joyvtlck 8 50 

CSA Rocket Launcher 499 

SupmTurbo 28Mhi Call 

88030 50Mhz CPU (99 

88882 SOMhi Math Co 149 

Safeahrn Protector* Cal 

Xtractor* Chip Puler 9 95 



Maxtor 213MB 
15ms LPS 
fiKCKh. 



$375 




18 Wellington Drive 

Newark, DE. 19702 

(800) 578-7617 ORDERS ONLY 

(302) 836-4138 Info 10AM-6PM 

(302) 836-8829 Fax 24 HOURS 



Vim ' Master Csrd Accepted Price* And Spscilcalion* Am Subject 



idSpeci! 
mo F»* l 



To Chang* Vnthout Notes t5%R*stoci>ig Fes On AX NorvDskrot** 
Returned Merchandise. Call For Approval RilA* Before Returning 
UerchencVss. Shipping And Handing For Chips Is U COO Fes IS 
Personal Checks Require 10 Days To Clear. Cal For Adual 
Puces On All Othsr items. H You Don't Sea It Hsrs, Call Ui! 



. S> pp- | 
I, Call Us! 



caete 101 on Header Service card 



offsets: 






fCCK 






openlibrary 






■ 












freemem 


* -210 




forbid 


-- -132 


; no registers used 




i -138 


;no registers used 


; intuition 






openscreen 


= -19fl 




closescreen 






openwindow 


. -204 




closcwindow 


= -72 




viewporr.address = -J00 


.■aOswindow 


- ■ ■■ ■ 






■ Irmd 


= -354 




loadrgb4 


-- -192 


aO-vp,al=colortable,dO=«pen 


;en 


» -342 




writer 


= -324 





sum equr d7 

across equr d6 
down equr dS 



bb 
ia 

n Lunl 



equr d4 
equr d3 



;to center display 
;to center display 



. "lenml 
lenra2 s len-2 
xoff a (320-len)/3 

■■■■■ Lonl/2 

Len.l 
lenml = len-3 

■ 
byce * <yoff320.xotfi'B .-byte contalningyoff /xoff 
■P' 12-1 .-long words per line 

byte • 2-xoff/8 .-offset to next byte 

•■array size 

.•default 

.•default 

; default 



:t?n"len 
; k 1 equ 2 
:k2 equ 3 
;gg equ 5 



men b: 






. b macro 


; (routine) 


movea. 


4. aft 






U(a6) 




endm 






I 




: (name. loc* 


lea 


VI. al 




moveq 


■ o.do 




sysllb 


■ ■ • 


/ 


move.l 






beq 


\3 




endm 







lEQ it G> 



intlib macro 

movea. 1 intbase.afi 
jsr UU6> 

endm 

openscreen macro 



; (routine) 



; (parameters, screen, BEQ*0) 



lea 


\l.aO 




intlib 


openscreen 




move.l 


d0,\2 




beq 


\3 




endm 






openwindow macro ; (p 


a ran 


lea 


M.aO 




move.l 


screen. nw. screen 


(aO) 


intlib 


openwindow 




move. 1 


d0.\2 




beq 


\3 




endm 







r (parameters. window, BEQ=0) 



gfxlib macro 

movea. 1 gfxbase.afi 
jsr \l(a6» 

endm 

test macro 

beq.s healthy\9 



•50, do 

line 

• O.dO 
testdoneW 



empi . b 

bcs.s 

moveq 

bra 
healthy\9 

moveq. b ll.aa 

moveq. b ao.bb 
hl\0 

move.b 

beq.s 

cmpi . b 

beq.s 

addq.b 

bra.s 
hl*\fl 

addq.b 
h2\fl 



U(a4l.dl 

h2\0 

150. dl 
hla\« 

ll.aa 
h2\» 

• l,bb 



move.b 

beq.s 

cmpi.b 

beq.s 

addq . b 

bra.s 

h2a\9 
addq.b 

h3\8 

move.b 
beq.s 
empt . b 
beq.s 



\2(a4).dl 
h3\fl 
•50, dl 
h2a\8 

■ l.aa 
h3\« 

■ l.bb 

\3(a4>.dl 
h4\0 
•50, dl 
hla\» 



; (routine) 



(top. left. right .bottom) 



jbranch if lower 



.-always at least 1 
.■start bb at 

;cell 'above' value 
; branch if 
;is it 50? 

,-if not,, increase aa 



; increase bb 

' left ■ neighbor value 



•right- neighbor value 
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addq.b 


■ l.aa 






M\e 




h3a**> 






iiddq . b 


11, bb 




M\9 






inove.b 


\41a4l.dl 


; 'bottom' neighbor value 


bcq.5 


hS\9 




cmpi .b 


■50, dl 




beq.s 


h4a\P 




addq.b 


• l.aa 






h5\8 




Ma\» 






addq.b 


■ l.bb 






■ . 




move.b 


kl.dl 




divu 


dl.aa 


;aa=aa/kl 


moveq 


• O.dl 




move.b 


k2.dl 




divu 


dl.bb 


;bb s bb/k2 


add.b 


bb.aa 


;aa=aa*bb 




aa.dO 


;now generation value 


bld.B 


testdonevfl 




iiiva 






moveq.b 


11. M 


;aa always at least 1 


inove.b 


M(a4).dl 


; 'top' neighbor value 


beq.s 


ill2\e 


.-branch if 


add.b 


dl.dO 


;add it to current value 


cmpi.b 


•50. dl 


;is it507 


beq.s 


ill2\8 




addq.b 


■ l.aa 


; increase aa by 1 


iU2\a 






inove.b 


\2(a4),dl 




beq. s 


iiu\« 




add.b 


dl.dO 




ctr.pi . b 


•50. dl 




beq.s 


ill3\» 




addq.b 


• l.aa 




illl\i 






inove.b 


\Ha4l.dl 




beq.s 


U14\0 




add.b 


dl.dO 




CITIp I . b 


•50. dl 




beq. a 


L114\0 




addq.b 


■ l.aa 




■ Vi -b 


V4(a4).dl 




1 


1115\0 




add.b 


dl.dO 




cmpi . b 


•50. dl 






iii5\e 




addq.b 


■ l.aa 










divu 


aa.dO 


; total values/aa 


cnp.b 


. ■ - . . 


.-greater than 50-gg? 


bgt.s 


iU6\e 




add.b 


g :. 10 


;ok to add gg 



bra.s testdone\4> 




1116\0 






moveq.b I50.d0 


: can ' • 


bra.s testdone\8 




lead . > 






moveq ■ 1 


,d0 




testdone\8 






move . b dO 


. laSJ- 


save 


endm 






pset macro 


V 




move. 1 


rp.al 




roove.w 


across, dO 




add.w 


•xoff.dO 


icenter ac 


move.w 


down .dl 




add.w 


■ yoft'.dl 


;cen' ■ ■ 


ext.l 


dO 




ext.l 


dl 




■ 


write) 




endm 






color macro 






move. 1 


rp.al 




glxhb 


Betap* 




tndn 










■ 






array macro 

move.l ■size.dO 



; (address, BEQ^O) 



move.l iSl0004,dl 




syslib allocmem 




move.l dO.M 




beq \2 




endm 




evenpc macro 




ds.w 




endm 








BMve.l sp. stack 




•■*-.' ii 10. - (spl 


.-save 1st pa 


open_lit*: 




open lib intuition, in 


. done 


b graph: 


MM. 



set_up: 
nuke .: creen: 

openscreen my:; 

r.dow nywindow. window, i . 

move.l d0,a0 
movea.l ww.rport (a0( ,al 

move.l al.rp 

movea.l window. aO 

inti ib viewportaddress 

move . 1 dO . vp 



ess 
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1 . .. 

coloi 
moveq »16,d0 olors 



PiQVO d .1 I P , il 1 



-:■; 



. - | riTki 

movoa 

movea ... 
lea bpl.aO 

move.. ,-bitplane addresses, 

. I . laOt. 

reial i . (oot • 

20 (all. (a0)* 

Hal). laO) 

MB! ry : 

a.l d0.a4 

: :ay2, closc_out 

: andoT : 

nop 

SbfeSOl.dS ;CIA register 

■ 

■ ■ . 

i 
nop 



nop 

d).d4 
add.b across. d4 
■50. d4 

■ 
move.: 

beq.s r2color 

. 
addq . I 
r2color 



Lflium cell value 

;0 gets its own color 
; color '4 



color 
pset 



addq . - 

cnpi . . down 

bne.s 

tb lorbid 



■ 


movem.l 


■ 






move. 1 




subq 




beq.s 




move.b 


. • . . 






lea 




subq 






■ • . 


. 


- . i 






subq 


•2,d7 


move . b 


. 


■ 


1 






beq.s 


■ 




■- 


: 












.. 




bra.s 








move.b 


<2.d0 


move.b 


. 


move.b 


«S.d2 


cl idone: 




















sub.b 


O'j.dC 


move.b 


dO.dilf 




bpl.aO 


showit: 








- -.j. 




movea . 1 




moveq 





■ 

;■ of cl 

.-no pa 

■ 

comna 

■ra to read 



space or comma 

;get :. 
i 

.-last 
r branch if so 

digit 
;clear rest of word 
.•times 10 
f add ■ 

;use d< . iluos 

jK2 
;GG 



;50-gg 



;upp< 



trow 

movea. I :. 

lea 
move ■ 

moveq •O.ocross 

icross .-number of l 
trl 



tea 



1 
1 Ia4> . 
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dbl 



across, trl 



uright ; upper - r lght . ■ v.gch-1 

movea.l arrayl.a4 

lea lenml iaAt ,a4 

movea.l array2,a5 

lea lenr 
moveq lO.dO 
move. fa <a4>.d0 
tenMenral , 

: 

a4),a4 
./2.a5 
iSl.aS 

moveq ■ , down 
movo.w llenmJ.down 

moveq iO.dO 
move.b (a4),d0 

test nlan.lci 

lea lenml (a -J .1, 
lea ; rigt. 

moveq ■ . dO 
move.b (a4) ,d0 

mien. -l.mlenml . len 
lea Ua4t.a4 

dbf down. Is 1 

lleft 

movea.l array l.a4 
lea len" • ■ .a4 

movea .1 <i : : 
lea 

moveq u 
move.b Ia4l.d0 
test nlen,loi 

brow ; bottom row 

; ,a4 

' Ia4t .a4 
movea.l array2.aS 
lea i5».a5 

. 
move . w 11 enm3 , across 
browl 

moveq 10. dO 

I . I 



lea I),a4 

dbf across, browl 



move' 1 . 

lea - - * 

move-! ,-2,a!» 



.-lower -right 

■ 



lenml'lenpl (aSl ,a5 
I tCdO 

■ 



move-. . 

lea lenpM.ii 

movea. 1 

lea 



reenter square 






cl 



move.* ■ Lenm 1 .down 

movo.w ■ ■ ■ loaa 

moveq • O.dO 

(a4l.d0 

test 

lea lla'r 

dbf across. cl 

lea 2la.ll.a4 

lea 

dbf down, 12 



switch 



; f or slower computers 



move.w •lenml, down 

■ . .- 

dbf acre 

dbf dov 

r movea.l arrayl.a4 
•a.l array2,aS 
. 

. 
I . down 
qp5 

moveq Iwpl, across ; length/32-1 

moveq - ■ U all 32 bits 

qpJ 



beq.a qpl 
asr.b I2.sum 
addq . b ■ 

asr.b H. sum I color bit to x 

roxl.l »l.d3 ; and to d3 

Lor bit to x 

;3d color bit to x 
roxl.l II. dO ; and to dO 



Volume 3. Number 2 



47 



Courtroom 

Legal Affairs Game 



Pt»j P'o»fi.iin ix Dcfrmr Aiiwiw) 
ChixiH LilKiil/CoaMKalix Mfc 
Nlltvl CrMMMl C«it» (•<»■ (kstn 
Qixioon Winctitt. C.ix OtjKIMM 

Cmiikc ih« I»i 

1»iJ on Irdrn 1 1 




Originally S59.95. now on sale lor $39 95' 



Audio Gallery 

Talking Picture Dictionaries 




Y.injm;; 



# 




**cbA*Am€Mhrrn a 7 .» KdiU »ei -it" "<i HD 
digai/rd word* 10 huili) votabulao in ■ Inrcign language 
V"»n lotact «*ch at weaiher. titing n»m likhcn. 
aiwnbcn . tit art pn-rniot in a fun graph**) context Each 
»ei include* gramma* manual. 4uirsc\ and dkUMr) 

English. ( jcrman. French: fteg $»« n* $m » 
Kit»Ni;n Konsm. J;^un-*.': r^ s12995.no* sag* 
(ht-rMork Sairl Spanish: W*W! Chine*: $79.95! 

Digital Orchestra 

IFF Sound Sample Libraries 

CompMfeU 

with MED. 

SoundTrattfX 

sequencers 

SampMM 
17897 SVS*C 

SAOI RatKMiun SUpH..> fmK» Otitic 
SAO: Bnui Tufti T™Kw Tr m< gi lnr.li Ifcwti «. 
SAOIKnd* (>»i iid, SinifOioo rtmoon «, 

5A04 br-f. Vol. YtoU.Cafc. On* Hit. n. 

iAO)GnU< Atu»i>. Uniiv lol Im. n. 
WW" f— »■> !««". r\*BH. IkM, I— » .o. 

SAD) l» PtnnMnn ■ TaMr. <\-«a Bntfo. m 
SA(» IttwM I kau Dntm. Saarc. Ton. '.-O" m 

SAW Dram I IliM Cwii *M". ( Jmlui d. 
SAlOPtnuuir* Swl I>i*i tfclu Hell W - 

SAIIOnjan f «b**a). !>.«* . Banfcumn IUt& o* 

SAi: &Mk • San Kcao rlJlpi- Ki*>y. Hvotk 

SAI 1 lUrf-nt Mar-oha. X,lc«k-r (rtou <« 

^I'l*! -H"i» Pkvnlo . Rnorvki Wh.uk rfc 

"MF««W Oi»Hn Mimri Vi-,, V».(X. , v 
NMMTmn Tim ™ nn hanir->ji m . 
SAIThaftptlwifc "..* Mm* is. 'xh swi M 
M (K«l. Ma*. V» L r- . M ■ 

NM»(*[jnO.«iii flnmli Organ anl llntn <*■■■< 
%AX SyMhrmnj QAw IgaK Watt, ga* w»»e ** 

1A1I VI SIX Aninuli Martian ttrjfhr S.ar>.tV 

Eacnd«M«DncM«S4K ltorS3»a■C^la^to' 
S»95 Go m pto H cotoon tor SM 95 AAoavWMNa 
TJ Muucai CrMor oragiamt and Xlln Sana tor Ihm 
Mm pto W *fng Snc^ngU MnormoradriU S4 

Lucky Dragon Software 
5054 South 22na Sticct 
Arlington, VA 22206 
(703)820-1954, Fa* 1703) 820-4779 

Drain Dollar Awla> (iarkry wotd lanawp < (twin.™ \* in 

h— Hi «a »ff*w pmti. I fret hrnrfcr »«>bHr "iin-™!* 1 
^ ■ M ll — . H *■» AaJW'.-o-H 1 •-, .-—l r>., • 

V> »if|» » "W W* ii Pni«i in CaMdias Uln l>inr« •» W 
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tyty Memory 
Management, Inc. 

Amiga Service 
Specialists 

Over four years experience! 

Commodore authorized full 

service center. Low flat rate plus 

parts. Complete in-shop inventory 

Memory Management, Inc. 

396 Washington Street 

Wcllcsley. MA 02181 

(617)237 6846 



Circle 101 on Readat S«rvK« card 



MOVING? 



^ 



SUBSCRIPTION PROBLEMS? 



Please don't forget to let us know. 
If you are hovtfig a problem with 
youf subscription or If you ate 
planning to move, please write to 



Amazing Computing Subscription Questions 
PIM Publications. Inc. 

P.O. Box 2140 
Fall Rivei, MA 02722 



Please remember we cannot mcl your 
magazine * we do no t know where you are 



ftacaa c«c— tuaio w ..eaai tor I m 11 a — y 



This Issue 
On Disk: 



•ARcxx Disk Catalogcr 
•GelFilc Shell for True 
BASIC 

• Ole^ — An Arcade game 
Programmed in AMOS 

• Programming the 
Amiga in Assembly 
language Part VI 

•Porting a B+Tree 
library to the Amiga 

•Computer Simulations 
in Assembly Language 

•Wrapped Up in True 
BASIC 

Also; Important 
Application Contest 
Information 





Advertisers 


Advertiser RS# Page 

Delphi Noetic ' 29 
Devine Computers 103 43 
Europress Software 104 CIV 
Fairbrothers 102 48 
Memory Management 101 48 

' Company wishes to be contacted directly. 



AC's TECH Disk 

Volume 3, Number 2 



A few notes before you dive into the disk! 



• You wed a working know ledge of the AmigaDOS CLI as most of the files on the 

■\i'\ TECH disk K only accessible from ihc CLI. 

• In order lo t"ii .is much information a.% possible on the AC's TECH Disk, we BcJuved 
many ot the tiles, using ihe freely redistributable archive utility 'Ifurc" (which is 
provided in the C: directory) Ifurc archive file have ihc filename extension l/h. 



To unaiefme a file/ii-Ui. type lharv i fim 
For help with lharc. type lharc 7 

files »iih 'lock' icons am beta m ffo WoriBenckb) rf»W ■eWi tiRgJrWrcn. and supplying a path. 




We pnde o< -.iecv | ,ontv o* our pnnt 

ondmogn'-rc '■ dtaput*cn* i ;-»5 However, in 
the NQhV >rvli-- v event of a lourty c 
aged d-* p'o ae return the cW* to PfM 
Ajbfcafloni nc tot a free »ep*ocement 
FteO! i ■ edr* to 

fECH 

Dtsk Replacement 

PO Box 2140 

FaD Rrver. MA 0i?iv-/t40 



Be Sure to 
Make a 
Backup! 



CAUTION! 



Dye id Ike whanl *nt) cipmmnUI tab- 
UK |mifran> nn Ik* Al~> TOO I f>tk »t *l-i* i*r 

iraln<i>uwtMiiM.r<pmaM} vlmiPinf <-<.- 

pupHm IkM miliar k™ -lr.il d»k 

tiihtli<<»f ihc <■*■>> aadfurionranHuflK' - 

■n, ■«■ . tmJ ^ tf- Miiuxi PSM 

hj*1fcJU»- l(fc . Uira ib>ttil«rim. i« ilvir nuilrti -ill 

«" he liiWt li» mi dimi. tnduii 
ikmyiinri f iftiwiikiMni-' 
mi ik* AC • TOT) D»«» iThi. ■(mm *■ itw- (--.(-,-" 

m ill (iwfraf* • il ji t v \ 



V:tu..jHn*ii nMhe in>]i>iihi*l li'f mAAUan 

-> ■( (ml* mlmnb^MHt. At AC • 

• .l!Cllj*l]llKtilh(Vll<» ■■' 

Junu-n- i« ike AC 1 If. CI I Dnl jh <op n*M C 1 WJ. 

I'M I9M, I"" ^i lSSHS.U*4«i«». in. ■I"m-" 

I* ihylWInl IB V} **J IV pHvluKf fn>«IiC II 

MbiMifal lii nuke *n ui. hi i flu. tup of" otlhr AC* 

ii( HDmI 

Sim Ik iitRmch lurlnl -Inn »i«iinp «iih nutf-jtv 

' ' <nk iiib mik. ihkt. ai ».."d my dsnafi- 

tlni .<» ki|i«" Al-> W* i»wr ltui<*unf Ihcw pru^r>l» 

mm .™i iSr » jiuuiirt trf )iko tiaaMn fw" 
lu-ii m tKf nfM'i ifrMi. i> •»« n 



i.\t M ■■ 



, .._ .. — B ^ 

intunnl •kiilr *n*mp*f it»> |">icii 
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asr.b 


• l.aum . t to x 


roxl.l 


■ l.dl 


dbf 


d2.qp3 ;do 32 limes 


move.l 


dl.S'idcQi i . 4th cole 


move. 1 


dO,S3«80fal) jail 3d color 


move. 1 


. 1 • [ ■ 


move. '. 


• 


dbf 


aero; 


lea 


byteof f (all ,al 


dbf 


down.qpS 


loop 




btst 


•6.Sbfc001 .'pressed LMB? 


bne 


showit ; branch if not 


syslib 




close_^e^: 




n ovi i . . 


array2.al 


move.l 


1 


syslib 


■ ■ 


close_out: 




movea . 1 


arra. 


move.l 


■ 


syslib 




clo3e_window: 


movea.l 


window. aO 


■ 


closewindow 


cloM_scroen: 


movea . 1 


,a0 




closencr-*' 


close_libs 




KVU. . 


■ . 


syslib 


cloi- 


close_inL: 




movea . 1 


intbase.al 


sysl Lb 


closa 


done: 




novel 


stack. sp 


rts 





k2 dc.b 

gg dc.b 

evenpc 

dc.b 
evenpc 

graphicsdeb 'graphics. library" .0 

evenpc 
intuition dc.b 'intuit ion. library* .0 

evenpc 



■yscrwn 

dew 0.0. 320. 200. depth 
dc.b 0,1 
dew 
dew customs* 
del 0.0,0,0 
evenpc 
■ywiiidoM 
dew 
dc.b 
de 1 

l - ; :ar 
- 






de 1 0.0 
dew 0.0,0.0 
dew customscreen 
evenpc 
color^table: 
dew S000.S12i.S24e.536d 
dew $4Sc.$5ab.S6ca.$7e9 
dew S8efl.S9c7.Saa6.Sbe5 
dew Sc64.Sd43.Se22.Sf01 
U | 







even] c 



stack 


del 





gl Kbaei 


del 





intbase 


del 


r 


screen 


del 


Q 


window 


del 





rp 


del 


c 


■T 


del 


a 


array 1 


del 


a 


array2 


del 


a 


bpl 


del 


D 


bp2 


del 





bp3 


del 





bp4 


del 





bpS 


del 


a 


kl 


dc.b 


a 



evenpc 



Please Write to: 

Bill Nee 

c/o ACs TECH 

P.O. Box 2140 

Fall River, MA 02722-2140 
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Getfile 

A Shell for True BASIC 



by Will Steinsiek 



o 



ne of the more powerful features found in True BASIC is its ability to 
redesign itself through the use of external Modules and Libraries. These 
are functions and subroutines which can either be preloaded and made 
part of the language itself or simply requested and called upon by any 
program that needs them. External Libraries, written in True BASIC, can 
be compiled or used as is. Compiled versions of routines written in other 
languages, such as C or Assembly, can also be set up for use. Once cre- 
ated, these subroutines can then be executed with a single line command. 



True BASIC hseu 1 coma with many such I Ibraries 
Information on hoh to make use of these Libraries within your 
own programs is found on the disk, either in a special Hie or m 
the form ol comments attached lo me code. 

The Amigal ft> is one such I ibrary ol routines it is found in 
the TrH.ihr.iry folder and includes toutui h. cycling 

m screen, and issuing commands through the CI 1. and a 
routine (or selecting .I filename from 1 disk directory 

Unfortunately, this last routine h.i- .1 problem th.n is referred 
lo in the documentation It will not work it you change screen 

modes with anything other than Sf : 1 MOI '1 graphics" It, for 

Instance, you reset the screen with SI 1 modi i am HIGH16", 
then calling on this routine will cause your system to crashi l"he 
problem can be resolved, however, h\ simply issuing the 
command Sl"l MODI "graphics" before calling upon this routine 
to do its Job. 

I here is an even better way, though Instead of hoping that 
you remember to include the set mode command in vow 
programming, you can write an External Library External 



1 ibrari es 1 an. m (act, call other External i tbraries in true structured 
p ro gr amm ing fashion. The G bseU Is actually « rrueBask 

subroutine calling another machine language subroutine lo do the |ob. 

fore we can easily design a routine that will lake care 
the graphics mode ' ! the filename tutu tion ol the 

Amigal ib While we are at it, we can also save our pre* loUS SCRCn 
md Screen, SO that we can restore it as SOOn as we are finished. 

The program Irt't l-ilel.ihdoes.il I that and SpTUCCS Up the display a 
bn as well by providing some instructions tor the user it makes use ol 
other routines found in a second Library included with True BASK 
called IFF, which was designed to enable the user to display ind use 
IFF graphic files such as those produced by DduxtPamt, As you will 
Me, making use of this structured programming approach results in I 
much smaller program 

We will writeGetFUeUbason External l ibratv containing one 
subroutine, and sharing only one variable with the main program All 
other variables within Cell-del. ib will remain isolated from the main 
program, so lhat any variable in OUT program Sharing the same name 
used by the main program will mil be SO idcntl) altered. 



Volume 3, Number 2 



Creating an External Library is actually no different faun (lie 
process of creating any other True BASIC program, except that it 
must begin with the word EXTERNAL on a line by Itsell .it tin- 
top of the cods. Convention also suggests the author include 
some comment lines at the beginning to identify Lhc program, 
ivh.it it does, and how to use it from your main program. No 
other Special effort Is required here 

Type in Listing 1. You will note that it opens other libra ne> 
for its own UM and calls routines from these In much tin- same 
way that our main program will call this routine 

When you are done. save this program as GetFUeUb in the 
L'srLib drawer on your True BASIC program disk Keeping 
own Library routines »n this particular drawer is sug g e ste d by the 
authors of True BASIC, but not a. rtually required Doing SO right 
now, however, Will make it easier lor us to find it later 

The second listing will provide a tot tor our new External 
Library ll also illustrates how a very powerful program ..in be 
constructed with just a few hues using such I ihranes Sa\.- this 
program as III \ lewef 



Roulines written in Assembly or (. can also be used by True 
BASIC in much the same way OlKC you have assembled and linked 
such a program, all that is missing is the proper file header, describing 
the progr.im and specifying any parameters needed. A program called 
linallouch that comes with True BASIC is used to add this information 
if program ll is located in the Assembly drawer on iheTrue 
.i'.sk 

There is more intormation on using your own Assembly routines 
within True BASIC in the Assembly Doc file on disk 3 of your True 
BASIC disks, and in the Assembly drawer on the first disk there is also 
a sample program called MyOrd asm It illustrates how to tell your 
machine language routine where a particular string variable is located, 
and how to return a value to True BASK 

Before calhn^su.h a subroutine 1 rue BASK sets up a table in 
memory containing pointers tor the arguments being passed to your 
subroutine. The start ol this argument location table is found in A6, 
One ol the address registers Each pointer is lour bvtes long, and can be 
found h> subtracting four from the value of Ab If (he routine is a 
runctton, an addi ti onal pointer sitei all ihe others will point to the 
Med return variable. 



As you can see, our main program serves as little 

more than a shell for calling 

the necessary external subroutines. 

The result is a very small, very capable little program. 



When you are ready, run the program irom within True 
BASK It will spend some time compiling itselt AnJ then present 
miu with a scrolling list ,i) files On the current disk \l\ Clicking "ii 
the line labeled Path Name you can change disk drives, disks, etc 
Insert a disk containing at least one graphic file. You can then 
scroll through the list of files and locate ~m lib piclure you wish 
to view. Double clicking on that tile name will load and di-pla\ 
Ihe picture file. Pressing the mouse button again will relum vou 
lo the file requester once more. From the file directory Select 
Cancel to return again lo the BASIC editor 

As vou can see, our main program serves as little more than 
a shell for calling the necessary external subroutines Ihe result is 
-mall. very capable little program 

Now that you've tried it out, feel free to modify either 
program. Maybe you would like to change the color >. heme in 
the GetFileLib. or expand IFFViewer to include a stideshOW 
option Certainly you may want to compile Ihe final programs 
OiHi,ompiled they are essentiallv machine language routines 
with a header to tell True BASIC how lo use them. 



In the case of a string variable, this pointer tells the location ol \,t 
another pointer which points tO the Start of Ihe siring variable In the 

B numeric variable or number, Ihe pointer points lo the !■■ 
ot the numeric value itself. 

i he following program in assembly code reads the value of a 
numeric variable passed toil by I rue BASIC and then returns that 
value to 1 rue BASIC Although it does nothing \ ery useful, it 
Illustrates the proceedure .«m\ can form Ihe basis fur mserling j ■ 
own routine 

Sample Assemhh Language Routine 

move I (ati).al .pick up ptr to numeric 

move I -<.\»<.a2 ;andplrtooulpularg 

move,] "-l.dtl .integer -1 value (wilh e\p ■-!) 

dl w dO xtcar integer pari 

move.l <al),dO .get numeric argument 

(Insert your own routine here • put result in dO) 
done 

move.1 d0,(a2) save in output variable 
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r 



it- 



;and done 



end 



Save this code .is HI H \<\ \SM Using the A<>Sk assembler you 

would then assemble ii as RETURN.o. Using m ink return o will 

complete the .i-M-inhl-. . 

Tlien load True BASIC and the program called RlultOUCh found 
In the assembly drawei rothe tirst question reply, I'll- RITLUWi 
Then give the name of your assembled program, which should be 
RETURN. Finallouch will du the rest Make sure that the final 
program. RETURN, is placed in the L SKI Hi drawer on your True 
BASIC 

When it is ready, the following 1 rue Bask program wiill lei you 
try i( out 

Simple rest I'rogram (or 
library "lusrlibjreturn" 

declare del return 
let t 5 
feturn(t) 
print n 
end 



While not very useful, this routine and the one tailed 
MYORD.ASM found in the assembly drawer do illustrate procedures 
that can be used to combine True BASK programs with machine 
language subroutines. Once you know how to do this, much more 
interesting things are possible 

Even though True BASIC on the Amiga has | lot ot features 10 

lend it ilready, there are -till man) tilings missing thai would 

make il a mote suitable Amiga programing tool. Unlike AMOS, for 

instance, True Basic has no fadlil) lor handling sprites the graphic 

capabilities oi the latest Antiga computers are unknown toil, and a 

■ other sound and graphic capabilities inherent within the soul ot 
the Amiga remain hul out oi reach within True Bask 

True BASIC is a Ianguageth.it is capable of changing, bowei 
meet the needs of its user- As more Amiga programmer- provide new 
building blocks that cm enable it to do new tasksoi to accomplish 
even more with less work. True BASIC will grow more act u-tomed to 
its new home on the Amiga Thank- to its modular design, it lir- 
within our power to uniquely tailor thi- flexible language to (ultill the 
ongoing promise of the Wonderful computer platform that is waiting 
at our fingertips 



Listing 1 



= Shell lor GetfileS in Air,: 



PURPOSE: Corrects bug in GetfileS function by 
using a SET MODE "graphics" command before 

leS. Saves previous rode and screen 
and restores them before returning. NOTE - Makes 
special use of MODULE IFF_Library included with 
True BASIC. 



AUTHOR: Will Steinsiek - 12/28/92 

: 
SUB Get :- . .->nameS > 

- 'migaToolslIFF*- ! open 

Required Li 

BLibrary lAmigaLit* " 
DECLARE FUNCTION getfileS ! Func- 

tions used from Libraries 

DECLARE FUNCTION Ask_n_EHBS 
DECLARE FUNCTION Ask_If_HAMS 
ASK WINDOW .up ! Save 

■ 
BOX KEEP It, rUP in screens 

ASK CURSOR row. col 
ASK MODE oldmodeS 
LET EHBS = Ask_It_£HBS 
LET HAMS ■ Ask_ 
CALL Save_SYS__colors ! Routine 

found in 

! Reset screen mode to Workbench (uses 
workbench colors) 

I And create shell adding Instructions 

for use 

SET MODE "graphics" 
1 PLOT .05.0;.9S,0j.95..9;.05,.9;.0S,0 

SET CURSOR 2,28 
PRINT "DIRECTORY OF E MBS' 

SET CURSOR ■. . 

t: -To Change Disks Click on PATH NAME. 
Delete Field" 

SET CURSOR 5,17 

PRINT " And Enter Drive (DFO: DF1 : RAM: 
.)■ 

SET CURSOR 6 

PRINT "To Select File Double Click ov. 
Name" 
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Listing 2 



used, 
i I led ty 

■ 



■jsing Ex' co 

ring and to display IFF Image 
Selecting Cancel or at rn to 

BASIC 

I AUTHOR: Will St« 8/92 

LlBRAi' ' 

including AmigaLib' 
LIBRARY " 
Get! 

CALL Gel 
into shared variable 

CALL KODE_: 

CALL R-. <:-name$." 

00 ! Wait for mouse 

button to cle 

GET MX: 
LOOP 

DO > 

button to be pressed 
GCT MOUSE a.b.C 
LOOP 
LOOP 
B 1 1 



:or mouse 



CURSOR 
PRINT • Or Click Once and Select." 
SET CURSOR 11,8 
PRINT -PATH NAME: * 
SET CURSOR I 
PRINT "FILE NAME:" 

lenameS 3(150, 70, t$, "SELECT"! 

SET mode oldmodcS ! Restore 

sen 
IF EHBS = "YES" then CALL EHB_0N ! Routine 
£oun<: cary 

IF HAMS = "YES- then CALL HAMJ» ! Ro 
found in IFF Library 

:.. Restore f _SYS_Colors ! Ro 

£ound in IFF Library 

SET window .up 

BOX SHOW acreenS at ;■ . 
SET CURSOR row, col 
SUB 



BASIC 

Will SI >85 26 5018 

:.as 
Albuquerque, NM 87108 
: 1505) 260 
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Will Steinsiek 
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P.O. Box 2140 

Fall River, MA 02722-2 140 



54 



AC'S TECH 





Disk Cataloger 



ARexx b an interpreted interprocess communicatnm (IPC) 
programming language. That's .1 mouthful lor novice Amiga 1 
IPC sounds difficult .ind probably not worth their time to ieam and 
use. If I had said ARexx is an easy*U»*leam programming language 
which can automat,- Amlgal JOS chores accomplished on a regular 
basis, then ARexx might interest the nonce programmer 

this article Is about HI ARexx disk Cataloger program thai 
manipulates AmigaDOS to produce a text file containing information 
about the floppy disks (or hard drives) that you want cataloged I his 
program was designed for novice ARexx programmers and is limited 
to AmigaDOS commands The best n iy to learn ARexx programming 
is to study program examples and use those examples to write vour 
own ARexx programs. 

The ARexx programming language, part of the Amiga Oper a t in g 

System (OS) 2.0 or purchased separately for 06 \ i I is for the masses. 

If you know anything about BASIC programming, then learning 
ARexx is reasonably easy, n you are new many typed programming, 
you may need to purchase 1 hook about ARexx programming. I highly 
recommend Using ARexx on Ihe Amiga by Chris Zamara and Nick 
Sullh m* (published by Abacus). This book is ideal for the novice and 
experienced ARexx user 

One day, I needed a listing of the contents of 1 1 disks. Since I 
misplaced the disk catalog program thai I sometime Used, I had to use 
the AmigaDOS command line interface (CM) and my directory utility 
(SID) lo catalog the disks. I WAS Constantly using ihe keyboard, tin- 
arrow keys, and the mouse to execute the following CI-I and SID 
commands; 

-DIR> ram Hold 1 1 dfi: opt a <CR>, which redirects directory listing 

to the RAM file. 'Holdlt' 

- AE <CR>, which loads mv text editOl 

- Load 'KAMHoldll' text tile inlo lext editor and preform Ihe 
following; 

a insert blank lines at the top and bottom 

b. insert Ihe disk volume name 

c. insert Ihe remaining free disk space 

- |OI\ RAM Holdll and Catalog as Catalog IWW (this makes I new file, 



Catalog new' from ihe files 'RAM Holdlt and 'Catalog'. Catalog is the 
accumulation of Ihe all the floppy disk that I want cataloged 1 
- Use SID (a directory utility) to; 

— DELETE RAMHoldlt and RAMCatalog 

R| NAME RAMCatalog.new to RAMCatalog 

Then I would Marl the process over for another disk While 1 was 
creating my catalog file, 1 thought that a small ARexx program could 
accomplish this process. At the time, I knew very little about the 
ARexx language, but Us commands appeare* uncomplicated. Now to 
discuss various ARexx programming techniques I d i scovered while 
writing the ARexx Cataloger program. 

An AmigaDOS script could do what the ARexx Cataloger does, 
but il would be much more difficult for an AmigaDOS script to handle 
the Cataloger'* flexible response to user input and its ability to 
determine the peripheral resources available on a given Amiga 
computer system 

1 bong 1 is the Cataloger program The line numbers in Ihe 

program are for reference purposes only and are not part of the ARexx 
Cataloger program. When you type in the program, omit the line 
numbers. The code is documented to explain program flow and ARexx 
commands. 

The ARexx Cataloger evolved as I learned about ARexx. The final 
program has nine sections The sections are; 

1. Mandatory comment Sta teme nt at the beginning of the file. It is 
unnumbered. 

2. Create a customized input/output window for the program, 
lines 1 to 13. 

3. Setup, which has three parts. 

a Iniliali/e constants, lines 14 to 25. 

b. Check system for resources and DOS commands, lines 2d 
to 100, and 

c. Load Ihe system disk devi.es, lines 102 lo 119. 

4. Get the source disk drive, lines 120 lo 147. 

5. Get the destination device and filename, lines 148 to 235. 
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Enter Pull pothnoK for your cotolog Pile. 
flflH;Cotolog OHQlCotolog 
Enter cotolog destinotion Pile -) pofticot 



ft Read tin- disk in the source drive and build the Catalog, lines 
236 to ^27 

7. Print the results, hm-. 3286 to 3SO. 

B t lean up and close out. lines 381 » J86 

9. Program procedures, 387 to 449. 

■\s you study the sections, vow will notice all the sect i ons support 
section six. which lb the code that creates the catalog file, In order lor 
section six to product- .i catalog file, the preceding sections must 
initialize variables and accept keyboard Inputs, soil can adapt loan) 
Amiga computer system setup. 

The Iirsl section of the program is the required ARexx pro 
comment line (denoted by the start comment symbol ' * and the end 
comment symbol '/). Lines 1,6, and 74 ire examples 01 comment 

, within a program Ihe onl\ required comment is the ver\' tirst 




line of an ARexx program When ARexx encounters 
Ihe /' symbol it Ignores everything until it encoun- 
ters the */ symbol Other comments throughout the 
program arc to document program How I recom- 
mend liberal use of comments to document program 
How. even if you create ARexx programs for your use 
only Following the comment is section tWOOl the 
Citaloger program, the customized input/output 
window. 

The customized window allows you lo create a 

window sized to your AKexx program requirements. 
STDIN and STLX>UT are filenames assigned by 
ARexx to the CI.I window it opens when you pass ,i 
program to ARexx. AH interactive input/output (1/ 
O) is handled by Uu- STDIN and SI es Since 

the ARexx Cataloger requires constant user mter.u- 
tion. its customized window Is the same size and 
attributes of the normal 640 x 200 hi-res Workbench 
screen (re fe rence line 3). ARexx tre.it- tins customized 

B window as j tile and redirects the input and output 

to the window. A modification ot the customized 
window code can result in two different windows 
with SI IX >L I assigned to one window and STDIN assigned to the 
other window Listing 2 is an example of this type of modification 

Section three of the Cataloger program initialize*, the variables 
used in the program and determines the peripheral resource- (disk 
drive devices). 

A one dimensional array _cmdr and three escape sequence 
variables are initialized at the beginning. The _cmdr array is a list ot 
AmigaDOS command names. The program uses the PATH. I\J O. 
DELETE. JOIN, and ECHO AmigaDOS commands The Cataloger is 
flexible in that it searches all the system loaded paths for the com- 
mands It does ihis by loading a text fife j n RAM (line 40) and then 
uses the information in the file to create a second one dimensional 
array called path 1 rating 3 is an example of the text file created by 
I atalogei from which it determines the search path lor the AmigaIX*S 
commands. Following the _cmdr array are the escape sequence 
variables color_1 through color_3. 

I atatoger uses escape sequences (see page 
the Amiga OS 2.04 manual (or a listing of Standard 
Escape Sequences tor Console Window) to change 
the ARexx window pen color In the middle of a 
string This was necessary when a string contained 
rwo or more different colors Ihe lbs pari of the 
escape sequence (line 23 to 25) ts the hexadecimal 
representative ot the escape key. which is where the 
term escape sequences originates. An interesting 
problem surfaced when I used the color.! through 
color. 1 variables With the center and u\ fUJKttOrd 



Clockwise from the top: 1 . Catalog destination 
requestor. 2 Read-disk information screen. 3. 
Catalog source requestor. 4. Next disk 
requestor 
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Ihe center function, as u-M.-d in the Cataloged centers 
.1 string based on Ihe width you pass to the function. 
Fm example; 

VU centerC'Center thisstring'MW) 



will return a string to V*t with 31 leading spaces, 
followed by "Center this string", and then 31 mora 
spaces h Ihe no. winch is the width, ts changed to 60. 

then "tenter this string" would have 21 leading and 
trailing spaces When center is combined with the Bay 
statement the string is centered and printed on the 
s||K>l I (assuming you used the appropriate width 
lorlheMIX_>l_'l window) Due to the window- 
borders, center (unctions in the ARexx C at aloger are 
based on 77 characters width. 

When escape sequences are imbedded in a 
string their length must be included in the width or 
the string will not be centered on the screen. 
Reference line 17 of listing I. The escape sequence 
|bx[32m i- Bve non-printable characters in length. 
The Ibx counts as one character. To ensure the text 
string in line 17 centers on theSTDOL'T, then the five characters must 
he added to the required 77 This is why K2 was used m the center 
function oi line 17 lot every escape sequence; add live to the 77 width 
and Ihe strings wul remained centered in theSTDOUT window It I 
used S3 lor the width in this example (one more than what I can get on 
the Screen)* then ARex\ would follow the text string with a blank line. 
I his is an simple method loget a line of text on the screen followed by 
a blank line with one \Ke\\ statement. 

The i I symbols are used throughout the program to put together 
(concatenate) text strings and escape sequences Reference line I2t> lor 
an extreme example of 1 I symbol usage 

I'en color procedures are at the end of the Calaloger program 
; to lis named colorl, color?, and color3) The color proce- 
dures use escape sequences with the AmigaDOS ECHO command to 
change Ihe pen Color which uses the "E symbol (rather than the Ibx 
used by ARexxl t<< represent the escape Ice] Die) are used to change 
the pen color (or a whole line of text. 

The program generates another one-dimensional 
array during the ini ti al i za ti on process called drive in 
section three It uses the AmigaIX>5 INFO command 
(line 103) to create a text tile in RAM lasting 4 is a 
sample ol the INFO command generated text file. The 
program searches through the file one line at a time 
until it locales the line that lias I mi as Ihe first word 
(line UN). I his line i- discarded, then it loads the drive 
arr.n with QwsySfem drive unit(s) (line 115). The 
program exits the load drive loop when it locates the 
blank line before volumes available:' (line 1 12). 
Calaloger uses the drive array to determine il the 
source drive and destination filename are valid devices 
and filename tor youi system 

li vmi use a system utility, which allows the 
computer system to read both Amiga and MSTJOS 
disks on the same drive, IheCatalogei program will 
read ,u\A catalog both types ol disks There is a 
problem associated wilh tin- dual drive Identity thai is 



The Disk in 0K2: is volt** Uork: 
Label it as disk nunber I 





: 



error trapped (line 307 to 230) and will cause the Calaloger lo display a 
rather lengthy discussion ol Ihe problem lor example, if the Amiga 
in 1 disk drive i> also known to the computer system as MS DOS 
MD1: disk driven e . two logical devices sharing the Same physical 
drive), and Dl-I. is entered as tin- source drive anil MOlt atalog is 
entered as the destination, then the program will error trap the 
problem and explain it on the screen. If you avoid this dual drive 
conflict, the ARexx C ataloger will even catalog youi MMX>S disks 
without incident, it you have a MS-1X1S utility installed. 

TheCataloger will catalog as many disks ,is your storage Space 
Will allow Press CONTROI D to exit the read disk routine It could 
take up to 2.5 seconds loexit alter depressing! 0\ I KOI 1), so be 
patient When you exit the read disk routine, you are asked it you want 
to print the cataloged file ll JfOU answered yes <i e . upper or lower 

our printer and press the return key to start the printing 
The program creates a header for the catalog file which is ,1 summation 



ARexx Disk Catalooer 





RflH: OFl: OHO: 
disk drive to catalog -) 
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of the disk read by the program, Listing 5 is an example of the 
Cataloger printout 

You can modify the print portion of the Cataloger and make it ■ 
stand-alone ARexx program which will print out a previously 
Cataloged text file. This is a simple process Load the Cataloger into 
your text editor or word processor and delete the first line comment of 
the program and lines 15 through 21? lines 26 to 350. and line 37V. This 
should leave the customized window, the escape sequences, the print 
routine, and the procedures portion .if the original program You can 
also delete the color 1 and falal_error procedures, since they are not use 
in the print routine. When Bus b complete, add the following to the 
first 1 3 lines of your new ARexx program and save it as 
CatalogPrinirexx If you used a word processor, ensure you save it .is 
a text file. 

/• Catalog printout : usage; rx CatalogPrint <filename> * I 
parse arg dest /* assigns <filename> to dest V 

tf lenglh(dest) = I -existsfdost) then do /■ <filename> doesn't exist 
•/? call screen_cls? call skip_lines(6)? call color3? say center* Usage; 
n.CatalogI , nnl<filename>'.77)? say? say center)' Where <filename> 
is pathname to Catalog tile. 77)? delay(200)? call screen_cls? exit 
end 

The finale to the Cataloger project is to make the program 
selectable from the Workbench environment. This is i<asy to do. it you 
have a directory utility like the shareware SID program. Workbench 
can also duplicate the icon by selecting Icon Copy from the Workbench 
menu. Once the Shell icon is duplicated, rename it Cataloger. Then 
highlight the icon by clicking on it once and then simultaneously press 
the right Amiga key and the 1 key (upper or lower case) for Icon 
Information. This brings up the Information Requester Erase any 
information in the Default Tool window and enter rx as the default 
tool. Select and delete any information in the tool types window. Save 
the this information and relocate the icon tit any directory in your 
system When you double click the Cataloger icon. ARexx will look in 
the Rexx directory for the program and execute it. 

ARexx is a programming language lor the masses. Even a novice 
ARexx programmer can write Impressive programs. The exciting 

aspect of ARexx is its flexibility Individual creative ideas are the onJj 

limit for what ARexx can do for you. Your creative ideas and view- 
point could modih the ARexx Cataloger program and make it better 
than it is or you could write other cosmic programs. Once you jump 
into ARexx, and realise that it can manipulate applications (like 
excellence'., SuperBast Pro 4, Proper Grammar, etc.) as easy as it manipu- 
lates AmigaDOS then the possibilities are endless. Try ARexx, you'll 
like it 



Listing 1 



( Catalog. 
Required 



delete 
join 
dir 
echo 



p*r. i "STCOUT" . "con : 

:■-.-■•'■■: ■ , ■ - Sow ■ 

...... . R . 

6 • ■ ■•open old 

STDINfc ST!' ' : * 

close* "STDOOT"! 

• ■■■•'. console handler •/ 
9k- " 

10 oper- ... - 

- 

■penCSTDOUT* • 

I : • 

■ ■ 

' . 82 » 



oaded? •/ 

•hen i ■ ■ 



skip eiglr 



tr.3 'OIN* 

DIR* 
• quencea * 

23 color_l i 'Ib'x' I31tn* 

24 color_2 = ■ Ib'x* [32m* 
25color_3 . 'Ib'x* 
26 /• is AREXX supp i 

£ -exist 

28 call screon_- 

29 do t;l to 8 

30 say ' 

31 end 

32 e: | C< xl 

33 call 

34 exit exit from script •/ 

35 end 

. . . 

37addres' 

38 /* loa 

19 addre -:—".-:-■ - m • 

40 OP©n( 'f lie* , *RAH:r. 
V 

41 count . 

42 do while -EOF I 'die' 

43 /• : ■ . ' ■ ■ 



•xxsuppor* 



-30 1 
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44 path.cou-.- 

path.counl ,1| 

47 

ita c 

• 

■ 
■ ■ 

56 
57 
58 

59 - 

' 

60 act * 

61 cal 1 per- 
62 

63 ng che 

coma:. 

64 

• 

65 call s-- : • 

66 

■ 
6^ 

? • ■ - ■ . ntr . 

from c . 

71 

72 exit ■ ■ ■ ■ 

■ 

for o f ! 

aSB'..; 

■ - • 

78 b = " 

80 d 

- 

■ 
■ 

84 'ECHO' ) 1 nen do 

85 • ■ .jop •/ 

87 
88 

• 

89 

90 

R',83) 

92 say the* 1 1 

■ 

94 
95 
96 



98 count l = count 

end 

.... . 

i 
.... 

coun>: ' 

104 c, ■ .R) 

: oqram flow 1 1 
106 max_elemen: * iniCi .-<■ device, counter ■/ 

■ . 
: - ti ipluppertReac '\)\ 

■ ■ Line, 4) ' hen flag = 1 /■ change 

program flow within the looj. " 
do 
.ook for blank line in the file Just prior 
to mounted devices listing */ 

then leave '■ wher 

ment = max_elem#nt • '. • .:. rement 

. 

drive.: 
116 end 
end 

is corrmand 'delete > NIL: RAM:Holdit • /• delete 
MH:Holdit ■/ 

a source d: ■.•>■ * 

121 caU re. 

122 do forever /• get source disk drive •/ 
12J ' ■ 

125 ce 

126 'Enter i 

II'. etc.'. 

rompt ' ' iBl i I 

■ 

put for source 
* 

129 call screen_cls 

130 CatUrive=striplUPPER(CatPr ■ • 

' on the end of devico 
' 

132 n-p " . ■ >-■. 1) 

133 ' 
. i f user doesn" ■ 

.-.^clement 

•-hen do 
136 ■ i atch found, valid dev: 

leave * . oop •/ 

138 end 

• ■ : do loop * I 

14 



I 

delays 
146 call s 

■ 






. 



- * 



eencls 
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150 call Bkip_Hnes(4) 

151 say center lcolor_2 

catalog file in • I i color_3 i I 'RAM' I i coloi 
',*,93) 

152 say center ( "especial ly i f you have only on< 
drive.', 7B> 

153delaytl50) 

154 call screen_cls 

155 do forever /• get a va .>?•/ 

156 call skip 

157 say center lcolor_." ■ .t yout 
catalog file. '.S3) 

158 say center lcolor_l u 'Example; ' li coi 
*RAM:Catalog • i I color_: 

•DH0:Catalog* i I color_l 1 1 • 

159 options prompt color_2 l lef 1 1 • '. 
catalog destination file -> ' I I color_3 

160 parse pull dcst /• get destination from STDIK •/ 

161 call screen_cls 

162 des- 

163 j . poa • :• . iej t. » t lad | i». r . - • 

164 select 

165 when length (dest) * ] then do /• colon li 
'/ 

166 . ndicates only a device was entered ■/ 

167 call skip_lines(6) 

168 say center) "You must select a : 
destination pathname! *.77j 

169 say irolor_l IP 'Try again! !', 83) 

170 . . 

171 , rMfi_cla 

172 end ■'• 'when lengthfdest) ' selection •/ 

173 when j = then do /• colon not present, error 
•/ 

174 .r.dicates no do.. re -at «ntered •/ 

175 call Skip_l .:.' ■ 

176 say center lcolor_3 II dest II color_2 
is an. ',88) 

177 say canter i color_2 l l 'Incorrect dri 
selection! ' 

178 My cenrerfcoloi '.821 

179 .ay 1 200 J 

180 _cls 

181 end /• of ' ' 

182 when j > 1 then i ■ • • 
valid filename was used • 

183 /* assur-e* a device & file were enr . 

184 f lag = -1 /• it: [lag • 

185 do n«l to imx_cKt. >i ■ check devic 
• 

186 if drive. n « leftldest.j) then flag 
* device is or 

187 

188 ; then do 

189 /"• pathname device, not pa: ■ 

190 call skip_l ines(6l 

191 say center lcolor_l ll left Idee' 
color_2 I i ' isan'.BS) 

192 say center |color_2 li 'Invalid 
selection!*. 83) 

193 say center tcoloi_l i i 'Try again! i ", 82) 

194 delay(200) 

195 call screen_cls 

196 end 
197 

198 •..-.. 

199 call skip_lines(8) 



mt you can 
i I color_2 



'as your ' 



it ;or 



Call Be: 

■ 

■ * 

■ 

'ion do /• open 

... 

call scree) 

■ ■ 

Ior2 

... 

lefti ' '.15) I nation Drivi 

■ 
dest 



: ■ . :. 

216 

say 

programs. The: 
218 

■ ■ 



■vice used, most 
lev ice 



■■ 



Ensure you 



MS-DOS I 

i 
t Ion filename. ' . 

■ 
Options Prompt center t 'Press RETURN 
key to cont inue' . 

parse pul 1 dummy 
ca 1 
end 
do 
228 closi 

....... 

end • ' ■ '....' 

end /'of ' - 
otherwise 

• :.'oOp, do:. 
■ 

x>p '/ 

• blank 1 ine 

- ■ •■ 

I nes ■ / 

1 ■ 
■ 

:-nctest ' 

■ 

■ 
on 'dai 
2 5 1 Wi 
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252 Wl ,6) (I 'DISK • Volume Name") 

■ ■ ■ .- .■•■■■■.-.■■ 

. ' i » 
254 WriteLnl ':. 
. 

• log disk until CONTRO: »-l •/ 

257 DISK = /• > • 

258 call screen_cls 

259 Signal on BREAK_D /* CONTROL D inteiupt or. ■ 

260 old_dir = 'SYS;- 

261 voi_name = "SYS:" 

262 do forever • ml . 
263 

264 en . 

- ; 

266 cam :. toehold' 

267 op-< 'R'l 

268 do k*l to 4 ■ >ntains "Cat; 
volume mlormatic:. ' 

269 
270 

271 close I ' : 

272 vords(data) /• how many words in 'data'? 
• 

273 vol_name = stripfwordldata.ni 1 it •;' 
last word in string is volume nar" ■ 

274 if vol_name • "present:* then do /* occurs when 
; not present lnCatDri.. • 

275 vol_name = old_dir /• traps I 
•desi - 

276 end 
277 

the old disk to be i • 

278 i value(wordldatr>. ■ : Locks 
• 

279 diskBL_: /'blocks 



:eo 



disk_f. ,rd(data.2)l 



281 sz = right tdisk_size. 1) /• get 'K' or 'H ' 

* 

283 "M" then do 

284 • * ' ■ • disk 
• 

285 end 

286 disk_lree = st: 

:;vert 
to »• r • 

287 n = pos ■-•) /* dec * ■ 

288 if n --- then do 

289 disk_f ree • subs: • 1 1 i i 
• get only KiloByt- 

290 end /• end ol 'if n - ■ 

291 old_dir • vol_name /" to ensure .t wl 
lot take back to back disk of the same name */ 

292 DISK = DISK ♦ 1 » Inc disk counter ■/ 

293 openl'head*. 'RAMrDiskHco.: 
info to headei I 

294 .' '.81 /' 
take the center eight cl 

295 ' vol 

296 .■ 

297 

My 



299 



say 



■ 



number ' I I color_3 I I DISK.88t 

300 i 'Getting information 
fromdir.k-.83) 

301 open CO: 1 . 'A') /• open, append header 
• 

302 iel.nl 'Cat'. 'DISK Number" DISK I I •. 
. ■ .- ■ 

, *l ree disk space' 

304 teLnCCaf, ' ' ) 

305 close! 'C 

306 /* 

307 using AmigaDOS. create a file in RAH: called 

■ , then join the three files in RAM: (the 
catalog file, _dir_file. and Lines as the file RexxCat, 
which is the complete catalog file to date. Then delete 
the old catalog file 'dest'. Once completed, copy 
RAK:RoxxCat to 'dest' as the new. uptodate. catalog 
:lean up by deleting RAM:RexxCat and 
- ; le. Leave 'RAM: Lines' alone. 
■ ■ 

309 address command 'dir > RAM:_dir_f i le' 
CatDrive "opt a' 

310 address command "join > NIL: " dest 
•RAM:_dir_filc RAM: Lines as RAM: RexxCat" 

address command 'join > NIL: " dest 
i RAM: Lines as RAM: RexxCat ' 

312 address coamand 'copy > NIL: RAM:RexxCat To" 
dest ■ [Ulet 

313 icrtfn_cls 

* • ' :f vol_name -= .... ■/ 

•sad * ■ xists (CatDrive I •/ 

116 

■; 
318 call colorl 

■ " second method to center up text on STDOUT */ 
' '.20) M 'Please, place next disk in 
ior_3 I I CatDi i 

321 call colorl 

322 say left (' * . 3?1 II "or" 

. ' ' 

cr( 'Press ' l l color _2 l l 'CONTROL D " I I 
color.l It 'to * II color_2 I I 'EXIT', 92) 

• wall 2 seconds for multitasking 



■ 
327 end /-end 



•■■vet loop * 
>r*ver loop exit point •/ 

• turn of f error trapping •/ 
d ' join > NIL: RAH:DiskHeader ' dest 



ss command 'copy > NIL: RAH:RexxCat To' dest ' 

...idress command 'delete > NIL: RAM:DiskHea.; 

mand 'delete > NIL: RAM: Lines RAM: RexxCat ' 
1 14 address cost ■ : RAM:info_hold 

* ensures no exit without 
- ' 
336 address command 'delete > NIL:' dest /• erase 
empty f i le that was created, but nothing was put ir. ■ • 
137 call Control, 
33B •■ ' il low no printing '/ 

■ nd 

the Y. y. N. or n selected */ 
i reen_cls 

;_lines(8) 
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34 3 Opt 

■ 



'Do you 



i 

i ■: reen_c 1 s 

:-n ) * 

' leave 

* 



351 do (oi eve i /" ensure pri ;■ i * 

352 A « open* 

/■ open prini • 

ae:- 

then do /• PPT: not ready "/ 
call r.creen_cls 
■ 

■ 



354 

355 
356 

357 
358 

■ 



say center'color . -:• 

)nds!V 

delay(250l for 5 



361 
362 

364 
365 
366 






leave 
end '"of 'select ' • 
end •■..-. 

. .ne coun' i 
, ,, 

. 'R' ) '• open catal 

369 cai: 

370 • ■ EOF •/ 
371 

372 
• 

374 

I 
377 
378 

■ 



linecount = linecouir ■ • ii .-•• 

60 then do /• tj.r 

■.''■■ 



■ 

end 

■ 
■ * - • 



■ nntei , lei 

•' and 'do wh. '-menta 

-EOF!) * 

■ • ' 



* close pr :: 

. * 



JO. I I 

382 i ' 
383 

384 Wi 

385 r. . 

386 > 

387 call Control_Exit 

388 Close! 'STDIH' I • 

• 

391 openCSTOOLn-.-'-.-W) /'Red 

392 OpCnCSTDIN'.*"', "F-l '•Red 

' ■ 

395 prt_h- ■ page 

... 

. ' ' I 

398 . 

399 WritcLnl -print , 

igel 

400 ■ | 



■ 
404 i ' 

■ ■ 



■ : procedir 
410 address comr-: 



411 
414 



419 

421 



■ 

sere*. ■ 

md 'echo " • 

9 i procedure 

■ ■ 
to 1 ines 
• blan) 



.on •/ 



•FATAL FI B F- 
■:al 1 color3 

■ 

■ ■ 

call sere 
■ 

. ■ 

-Is 
ines 161 
444 

If 



449 /• end of Cataloger.r 



• - 



Listing 2 



dowDeino, i !!?(iio */ 



if opcnCSTDOUT'.-con: 1 ndo 

...... 

. . .. 
do 
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clon< ■; :.■' T-) 
.. ... 

open("STDOL"T", "•", 'W| 
open("STDIN"."'".-R-| 
■ 
end 
end 
■ay cent* ■ 'iSTDOUT Window II -.77) 

* ' :ng' in Window 2 toexit".77) 



parse pull variable /" get input from STDIN •/ 

say center (variable. 
closerSTDIN'l 
closet 'STDOUT* I 
PRAGMA! •'- I • op. 
open* "STDOUT". ■•",' ' 
open("STDir:".-"-."R"| 



the console handlei • 
reopen the ARexx window " / 



Listing 3 



Current_dl rectory ' I ne of PATH output V 

RamDisk: 

Boot Dr. 

Boot Drive :c/c_add 

Boot: r 

Boot Dr i ve : Rexxc 

BootDr ivo : systan 

BootDrive:s 

BootDrive:Prefs 

Boot Dr i ve : KBSt art up 

BootDrive:PC 

BootDriverTools 

BootDr iveiToolB/Comroditiea 

BootDr ive: 

Ct • ■ • 



Listing 4 



C line is blank for I! 




Unit 


size Used Frc. 


Bl 


HD1: 


No disk present 




MDO: 


■ . , • 




RAH: 


51K 





DHO: 


6908K 11521 2295 B3» 





DFO: 


No disk present 




DF1: 


No disk present 




DHl: 


28M 54030 3837 m 


D 


DH2: 


UK 24375 6003 80» 






it ntUfl HAM 



Read/Write RamDisk 
Read/Write Be • 



Read/Write FastDrive 
Read/Write Work 



Volumes available: 
RamDisk (Mounted) 
Work IMountedl 
FastDrive [Mounted] 
BootDrive (Mounted] 



Listing 5 



Catalog File prepared on 24 Jan 1993. 
DISK ■ Volume Name 



1 

a 

DISK Numb- 
Free disk spa< 



Ouaterback_Reports : 
ARexx_A r t i c I e„BU : 



ime ->Quaterback_Reports: 



c :>;ok kd 



DiH_Li3ting (dir) 
Dir_091291.1zh 
.info 

Quarterback 
Report_DH0_l.lzh 
Report_DH0_3.1zh 
Report_DH0_5.1zh 
Report_DH0_7.1zh 
Report_DHl_l.lzh 
Report_DHl_3.1zh 
Report_DHl_5.1zh 
Report_DH2_2.1zh 
Roport_DH2_4.l2h 



Disk. info 
Quarterback. info 
Report_DH0_2.1zh 
Report_DH0_4 . lzh 
Report_DH0_6.1zh 
Report_DH0_8.1zh 
Report_DHl_2.1zh 
Report_DHl_4.1zh 
Report_DH2_l.lzh 
Report_DH2_3.izh 



DISK Number 2, Volume Name -> ARexx_Article_BU: 
Free disk space 7 05K Kb 



2Wi ndowDemo . rexx 
AMAZ_Article_ARexx_l .dec 
AMAZ_Article_ARexx_l .txt 
Cataloger . rexx 
Listmg_l 
Listing_3 
List ing_5 

LISTING 5. 



Cataloger. info 
Catalogprint .rexx 
Liating_2 
List ing_4 
Pictures. info 







ru*;isi- u riif to: 
I. Il;n-i-i'l Hisl III 'iinl. 

c/o ACS TKC II 

P.O. B..\2I 10 

Fall Klvrr. MA 02722 
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Q C9M. Psygnow. 30O. ond (toe Croats wmt 

o 

%\piazine Amiga 




MI'I II 



• 



AC GUIDE Amiga 




s 



Hollywood Tichniqun 
On the Amiga 

In This Issue: 

•ABodm Tutorial 
• DPoinl IV Trtios 
■Morphing wittt 

MorphMus 
-Crooting Amiga Vision 



Your Complete Amiga 
Guide To: 



•3-0 Hoods 

Reviews: 

•Pioymonon 
•CnoMorph 
■Art Expression 
•BiH's Tomato Gome 



•Concordia University's 

Vide 
•Tho Po 

Bohii 



BookvDil-. 
Mask, 

any 

Gnphks. 

s.i(iwarc. 

H.inlH.iM 

llllKJtl*r||. 

^iiiiiuiii'ii 

Protnuunlag 

I mi r Ml mucin. 

Itnklun V ill. 11 



viN 



ws#* 



J ACf 8 lECH 



t M — » n I |»(l>« (»«■"»" 



Linking with 
HotLiiiks 



Over 

3500 Products 
695 Vendors 

-.00 I SITS 

Groups 



k 



♦ Comcan Computing'* 

( •- Reviewed 

\lii vv system li>« 

♦ Programming ihc 
in tsscmhl) 1 -mm 
Pan 5-OInncr >•■ ««ii 

♦ True BASK Extcnslo 
Blfmapped Graphtci 

» Transformer 

1 r.nlinu < onimntlilies 
in Workiu in h 2.0 

1 -.inn Ihe Audio DcvtCC 

♦ .Multe Your Own 
.VII VcKcUlion 






<* 



The other will just keep 
you spinning in circles. 



Amazing t omputing provides its readers with in-depth reviews and tutorials, 

informative columns, worldwide Amiga trade show coverage, programming tips 

and hardware projects. 



AC'S //.'.//is the only disk-based Amiga technical magazine available! li features 
hardware projects, software tutorials, super programming projects, and complete 

source code and listings on disk. 



AC's Gi IDE is recognized as the world's besi authority on Amiga products 

and services. Amiga dealers swear by this volume as their bible tor Amiga informa- 
tion. With complete listings of every software product, hardware product, service, 
vendor, and even user groups. AC& Gt IDE is the one source for everything in the 

Amiga market. 



For a better sense of Amiga 
direction, call 

1-800-345-3360 



— Assembly continued fi 


otn page 23 


rnovea.w 


■ 




bra 


no_message 




do_BeL512 






rnovea.w 


.moxcount 




bra 


no_message 




do_setl024 






movea. w 


. :nax count 




bra 


r. i ;■• 




zoom 






audi .1 


•SOOOOf Iff ,db 


.-make mouseX a word 






; and mouseY 


move.l 




.-save them 


move.l 


■ 




move.l 


. 




mode 




.XOR color 


.-!'_-i-.VT, 






cfm 






■ 


• - . ■! , 'i , is 






.... 


; lmb must be up 




lmb_up 




lmbl 












move.l 


dS.endx 


oordi nates 


move. 1 






box 


endy,5 


delay 


: 


.-optional 


box Btartx.si 


ondy. 5 


bra 


lmb_down 




Uri _up 






mode 


jaml 


; restore draw mode 


zmul 


xscale, startx 




add.l 


xc.dO 




move.l 


do . newxc 


.-new xc 




xscale. endx 




add.l 


xc.dO 




sub.l 


■ :.d0 




fltdp 






otovedp 


d0.d6 




fltdp 


320 




novod) 


d0.d2 




movedp 


d6.d0 




divdp 






■ 




.-new xscale 








bne.s 


■ 




beep 






moveq 


• l.dO 


;make it at least 1 


new_xseale 






move.l 


dO. xscale 




move. 1 


newxc. dO 




move.l 


dO.xc 




move.l 


lie, dO 




—■ tfeq 


10. dl 




move.l 


1200. dl 




sub.l 


endy.dl 




novi 


d0.d2 




mulu 






swap 


dO 




mulu 


dl.dO 




swap 


dO 





clr.w dO 

add.l d2.d0 

add.l yc.dO 

move.l dO.newyc 



move. 1 

moveq 

move.l 

sub.l 

move.w 

mulu 

swap 

mulu 

swap 

clr 
add.l 
add.l 
sub.l 
fltdp 
movedp 
fltdp 
movedp 
novedp 
divdp 
f ixdp 
tst.l 
bne.s 
beep 
moveq 

new_yscale 
move . 1 
move.l 
move.l 
bra 

no_jnessage 
addq.w 
cmpi . w 
bne 

■ 
nova . : 
add.l 
move.l 
addq . w 
cmpi . w 
bne 
bra 



yscale.dO 

■ O.dl 

■200. dl 
starty.dl 

d0.d2 

dl.d2 

dO 

dl.dO 
dO 

dO 

d2.d0 

yc.dO 
newycdO 

d0.d6 

200 

d0,d2 

d6,d0 



dO 

new_yscal« 



II, dO 

dO.yscale 
newyc.dO 
dO.yc 
showit 

• 1 .down 
#200. down 
ml 2 

xloc.dl 
xscale. dl 
dl.xloc 

•1, across 
•320, across 

mil 
check_Eor_message 



down one space 
all way down yet ? 
branch i f not 



; increase xloc by xscale 

.-over one space 

:all way across yet ? 

.-branch if not 



close_window 

closemenu 

closewindow 
clo*4_Kr*en 

closescreen 
close_libs 

closelib dpmath 
close_gfx 

closelib gfx 
close_dos 

closelib dos 
close_lnt 

closelib int 
done 

move.l stack, sp 
rts 



stack 



dc.l 



.-reserve storage loca- 
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clcna 

gfxbase del 

intbase del 
dos base del 
dpmathbase del 
even 

; library names 
gfx deb 'graphics, library* ,0 

evenpc 
int deb ' intuit ion. library '. 

evenpc 
dos deb "dos. library ' ,0 

evenpc 
dpmath deb 'mathieeedoubbas. 1 Ibrary' , 

nyscre*in: 

dew 0,0. 320. 2 00. depth ; depth is 5 

deb 1.2 
dew 
dew cus t otr.se reen 
del 0.0.0.0 
i vctnpc 
mywindow 

dewO. 0,320, 200 
deb 31.13 
del mousebuttonslmenupick'.mouseinove 
;1DCHP flags 

del activate ! smart refresh 'borderless 'mousereport 
.•window flags 



dc . 1 gadget 1 , 




del 


o 






del 


0.0 






dew 


0,0,0. 


) 




dew customscreen 




evenpc 






xc 


del 


ScOOOOOOO 


r-2 ' scale 


newxc 


del 







yc 


del 


ScOOOOOOO 




newyc 


del 







xscala 


del 


$00666666 


;M / 320) • scale 


yscale 


del 


S00a3d70a 


; (4 / 200) * scale 


xloc 


del 







yloc 


del 







aloe 


del 







bloc 


del 







asqr 


del 







asqr4 


del 







bsqr 


del 







bsqr4 


del 







sum 


del 







sum4 


del 







diff 


del 







diff4 


del 







juliaa 


del 







juliab 


del 







startx 


del 







starty 


del 







endx 


del 







endy 


del 







across 


dew 


D 




down 


dew 







sign 


dew 







Julia 


dew 







evenpc 






colormap 




:my new pa 



dew $000,SfOf.$d0f,SbOf.$90f.$70f,$50f,$d0f 
dew SlOf . SOOf , S03d, S05b. $079, $097 , $0b5, $0d3 



dew Sfd . . 5100 

evenpc 

■-. • 
nvikem- ■ - * .svnul.0, 1 

'.em 
menuOitemO. "Mandelbrot ' , 

makei I 
menuOiteml, -Jul :a_Sot',menu0item2 .10.557.: 

make 
tnranu0iten2, 'Coordinates* .me; 

makeitemmenu0item3, 'QUIT". .30. $56. ,'Z' 
maker- : ', ,90. 1 

■ ■ 

ount',.0 t S52. . . rOsubitemO 

-.-■;.-.■ ,J.S153.$le 

.: ■ • .: ;Lem2.10.i 

■ ■ 
nenulitem0aubitern2. '256' .menuliter , ibS.SIb 

makesub:* 

153, S17 
■ 
: i : ;■■■ 

gadgetl, 'Xleft' ,gadget2,40. 100, 10G.9.S0.$1.$0. 1. 15 

. :0.75.100.9.SO.S1.$0.2.15 
■ ■ 
gadgetJ. "Xi 

makes; trgadgot 
gadget 4 ,' Ybot ', gadge • 
makest rgadge' 

gadget5.' Julio 

makest rgadget 
godget6.' Jul laD 1 ., 180,150. 100. 9. 30.S1.! 
evenpc 



gadgetlbuf fer deb ' 

gadget2buf ler deb '2.00 

evenpc 
gadget 3buf lei dc.b '2.00 

evenpc 
gadget4buf fer dc.b 

event c 
gadget5buf fer dc.b '0.0Q 

evenpc 
gadget6buffer deb '0.00 
end 



00*. ;dofauli 
10'. 







Please Write to: 

William P. Nee 

c/o AC'S TECH 

P.O. Box 2140 

Fall River, MA 02722-2140 
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— OLE continued from page 13 



* see if hot spots arc within 6. pick frontal image, 
climb SO lines slowly. 

* this will remain constant regardless of cpu because of 
impl ied vblanking. 

* every second pixel of climb we will check will collision 
with a bull . 

* set climb flag, increment operations deck level l, 
reset 'got prize' flag. 

' note how we make assign bool expressions to r6 and r9. 
then checking both 

* In the same 'if test, thus we save one jump, keeping 
within the 3 to a 

' loop limit! 

0: Let R6-R7>6; Let R9*R7< -6; UR6IR9JA; LA=7; 
F R0=1 T 25 L Y-Y-2; IfBCfO.1.4) J P.- N RO; 
L R2=l; L RD-RD.l: L RL=0; J A; 

" matador collided with bull . move him of f screen, set 
•gored" flag 

P:FRO*1T0 15 L X»X-15; L Y=Y-15r N RO; L R2-0; L 
R6=0; LR8-0; 

L R9-0; L R0=1; J A; 



• chan 1 to bob 1 
' bottomost bull 
LX=1S; LY=196: 
A: AnimO. 14,9) (5. 15): H290.0.RA 
AnlmO. (2,9X3,15); M-290.0.RA 
' ;;*;. A: 



' chan 2 to bob 2 

' 2nd bottommost bull 

LX-304; LY.146; 
A: AnimO. I2.9M3.15>; M-290.0.RA 
AnimO, (4.9| (5.15): M290.0.RA 
Jump A; 



' chan 3 to bob 3 

' 2nd from top bull 

LX-15; L Y»96; 

A: AnimO. (4.9) (5.15); M290.0,RA 

AnimO. (2.9) (3.15): M-290,0.RA 

Jump A: 



' chan 4 to bob 4 

' topmost bull 

LX-304; LY=46; 

A: AnlmO. 12.9) (3.15); M-290.0.RA 

AnimO. (4.91 (5.15); H290.0.RA 

Jump A; 



* chan 5 to bob 5 
' bottom p: 

' assign value from set prizes procedure to this channel's 
'x' 

* if col lis ion permitted, check for one. else pause, and 
retest flag. 

RL-0 J B; P: J A; 
' if collision detec--i. ir- :. and test for skill 

level 

B; If BC 1 5. 0.0) J C; P; J A; 
C: L RI. 

' set appro; -ore per current 

skiil ; 
LA=RC.19r LR0=ROl; L RM-RO'IO.RM; J A; 



' chan 6 to bob 6 

' second prize from bottom 

' assign value from setprlzes procedure to this channel's 

*x' 

LX=RI; 

. permitted, check for one. else pause, and 
retest flag. 

J B; P; J A; 

i detected, set loop Elafl. and rest for skill 

B: If BCI6.0.0) J Cr P: 

C: L RL 

• set appropo prize image value, incr score per ■ 

skill level 

LA*RC19; LR0=ROl; L RM*R0M0.RM; J A; 



• chan 7 to bob 7 

■ :om top pi 

* usign value from setp: edure to this channel's 
'x* 

LX=RJ; 

ollision permitted, check for one. else pause, and 
retest flag. 

RL-0 J B; P; J A; 

11 ision detected, set loop flag, and test for skill 
; wm ; 

B: If BC(7.0.0) JC; P; 
C: L RL - . 

' set appropo prize image value, incr score per c 
skill :■ 
LA=RC*19; LR0=RC-1; L RM'RO'IO-RM; J A; 



■ chan 8 to bob 8 
' top prize 

.^n value from setprizes procedure to this channel "s 
•X' 

■ 

-.tted. check for one. else pause, and 
retest flag. 
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■ ■ ■ * ■ ■ 



Listing Two 



' Ole. AMOS by T.J. Eshelman Sopi.-r.i- : 

I FflECAT. 

Caster. Matador goet 



Load 



. . 



ixink 4. 



•n i 
Screen Copy To 1 : Rem For a background pic. 

Get Sprite : . 
Screen : Rer Mas- 
Fade 1 : 
Sere-.: 

SynchroOff : Rem To dete" 

DimLADO) : Rem Horizon- i ideis 

Dim PP17.E(4) : antal coords : 

• All boba r- - i . ■• ' ■ 
refei> 

• Boba 1,2.3,4 k to top. 

to top. See 
ProcSETPRIZES 



Bob 0,250. 

• - . 



: . 1.24. 

■ : . 

. 

' Bobs 9 . 
Proc SETI 

■ 



It awn off : 

...:.:■.. . . ■ ■ 

■.-.■.-. ! blob7.27;.. 



1Q 



cons. 



Channel To Bol 



i To Bob 4 : Channel 5 To Bob 



Channel 3 To Bet ~* if 

Bob 6 ; Channel 1 To Bob ? : Chann. 



■,'I.L SPEED. RC*Skill level (0-81 . RD-Operat tons 
3). 
' RE. BF. PC are ladder X's. RH. Rl. RJ. RK fl 
X's. 

' Score. RN=KATAOOR SPEED. 



hi RQ=Jum 

■ 



-_ime. 



Image Nos. for 



. 



• BAG=10 : BALLOON.ll : SHADES»12 : CONE«13 : CANKr I 

• BEER-15 : LOCO-16 : HOTDOGM7 : WHISKEY 
i 

Sound File Sample Numerical Equivalents 

: CROWDS : GLASS=3 : HIGH=4 : HORN* 5 : LAUG 
2E-8 : YELL-9 

-_' follows the 'moinO * program. 
' These instruct ions are given once and done when game 

■ 

Ink 4 , 5 






il 8,8 : Rem 
i to always 



es in the title bar. 
Volume 63 

tor eg ■'■ -em Reset current ladder X. 

A*reg Reset 'got prize' (lag 

Ami eg i A*c i " : Rem Reset scoreboard 

'0") -65>=Q : Rem Reset 'gored' flag. 
: Reaftoset 'scored* flag. 

Ren user gets 5 lives to lose. 

can be assigned or. ! 
bobs . Draw 

' the bul Is. prizes and man 'off screen* to avoid prema- 
turediiplays. 

■•' Jure our bulls always start from the edges of the 
■ 

It, restarting themeach 'gore' or new 
. s means 
* reexecut ion from the first line of code where X is set 
at the display edges. 

' The matador is handled similarly to help avoid 'cc. 
s ions' on resets. 



On : Rem Blackened screen C I 



vis- 



skill levels. 
: Amal Off 1 : Amal Off 2 : Amsl Off 3 : 
Amal i. I 
Screen To Back : Rem Put current screen (11 behind. 
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MOVING? 



SUBSCRIPTION PROBLEMS? 



Please don't forget to let us know. 
If you are having a problem with 
your subscription or if you are 
planning to move, please write to: 



Amazing Computing Subscription Questions 
PiM Publications, Inc. 

P.O. Box 2140 
Fall River. MA 02722 



Please remember, we cannot mail your 
magazine if we do not know where you are. 



_ t *eoae olow iour to «« w lo lor pocaiwfl 



■ 

Bg. 

...en Ready" 
To -1 : !■• *ith color. 

: 

Sam pi 
Do 

' Vol 

■ 

Loop 

.dck. 

■ 

rrent . We draw our 
Fade 2 Ti 

"■jst alio- r color \ 

■ 

. ng tan or. 
- 
■coring in the 
r.dr. 
Amal 0.0 : A; 

Amal On • - , 

4 

AMAL BCC : 

■ 

■ 

: Rem Bull time 120-48 in 

■ 



ED>100 
A»- 



■ 



Els. 

- «M*da. 



End If 

HANS PEED : ! 
S 4 4 



nut ion 



■ : 

Dl t. 

■ 

Proc SCWATADOR 

nt : Pern Bring i front. 

Screen : Rem Quickly bleach screen for future fade 
ln's. 

Fa.'. 

■ 
A .* . 



Synchro : 



: shot ' 



: 

■ •■giAscCO") -651 *1 : Rem We've been 'gored' 
Sam Play SF.BOING 

■ 

:con 

■ ■ ■ . 



!lag 



: Rem No mon- 

■ 



:.ass 

End If 

giAiicfP-t-(jS)<>Ami 
Sam Play SF. PF 
Text : . - 
Amreo ■ 

... 

AmregfA- 
and re loop. 

N 
iy SA. CROWD 

■ 

End If 



.... 



iy 1 or next 

■ 



Loop 

- ■ 
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■ 

• ■■, HIGH 
SO 

.HORN 
h . CROWD 
Fade 15 

Next B 

Sam Play SA. LAUGH 

SamPla] 

End 

Procedure 5ETLADQERS 
Shared LAD<) 

For As To 2 

■ ■ 
<6. 
LADfA|,Rnd(296l.l2 
'A-4) ;LA: 
RG. 

."•■■■. 
■ 
-• A 
AmregfAscCD") -651*0 : Rem Reset channel lar; 

coordinate 

End I : 



Shared PRIZED 
B=196 
For A 
PR I?: 

■ 
■obA-S, PRIZEtAI.B 



' 



End Proc 
Procedure SET1CONS 

For A=0 To 3 
Bob/.. - I). 120. 2. 9 

A 
End Proc 
Procec . 

Bob 0, 160. 196.6 : Rem For completeness. Respots the 
bobconsis' 
End Proc 







Please write to: 

Thomas J. Eshelman 

c/o AC'S TECH 

P.O. Box 2140 

Fall River, MA 02722 



— liTreo continued from page 'il 

showtec.o: showrec.c $' 

$(CC) S (FLAGS) shown . 

upindex.o: upindex.c S(HEADERS) 
$(CC) S(FLAGS) upindex.c 

mkkey.o: ,c S(HEADERS) 

• JS) mkkey.'c 

opendb.o: opendb.c $< HEADERS) 
S(CC) S (FLAGS) opendb.c 

closedb.o: closedb.c $( HEADERS) 
$(CC> S( FLAGS) osedb.c 

filename. o: filename. c S (HEADERS) 
S(CC) $ (FLAGS) Lename.c 

xtnt.o: chgextnt.c S(HEADERS) 
■| S( FLAGS) chgextnt.c 

flushdb.o: flushdb.c $ (HEADERS) 
S(CC) S(FLAGS) flushdb.c 

8 Removed getdisk.o and getcurdr.o for 
AMIGA conversion 

it getdisk.o: getdisk.c S (HEADERS) 
S(CC) S (FLAGS) getdisk.c 

» getcurdr.o: getcurdr.c Si HEADERS) 



Please write to: 

John Bushkara 

c/o 

ACs TECH 

P.O. Box 2140 

Fall River, MA 02722-2140 
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nan ■ 
■1m 

plot MR. 11 I . 1*. > i S-.imgl 

i ohm unci on Ntu> • iwrnucir 

I TUT DOCILE FHIHTIIB TO UU HtCIMM. 

ir Tott •> o ibra 

plot ta«t. at I . IM. 1 a YOrr i Strings 



;: 



Ml if 

-1 ■ .1 



You Mount uist show .in imam' You call a sub whose job tt Is W Show 
Imager .it .i place vou desire. This sub may have its own independent 
work to do I ft the image subs worry about the image details. Do m>t 
burden the ii-xi subs with Image overhead. Do not mix jobs. First plot 
the imam- in the desired place by passing the buck to an image routine 
If you map the space available to text, line by line in terms ol the 
total space minus that taken up by an image, then you have in these 
two main subs just about everything you need lor word wrap around 

images 

Mow all that is needed is a sub to place an image within a 
requested location, determine the left ami right boundaries available to 
text as we go from top to bottom, and to call the pan*- routine to gel 
that amount ol texl that will fit each line and then the justify routine to 
plot it according to the rules we picked, line by line, top to bottom. 

Al the end of each stopping point (bottom of page or form feed 
et( ) call for an image update from the image routine That is. always 
pause in image mode. If that image plotting routine <\in detect mouse 
and ke) presses (if so enabled) then it can report those it does not 
understand back to the caller and act on those it does understand 



Our image engine knows what to do with arrow key presses as 
well as a verier) ol 'play' coounand kej presses. If thai image happens 
to hold If- frames, then we CM pla\ II or step through it at will and still 
return text scrolling key presses back to the caller sub 

Oh yeah. The image plotting sub should take nolo, as to what 
image it was on anil what was pressed and what point the mouse was 
pointing at Maybe the caller SUb can use that information Can't hurt 
It would be wise to give the caller sub LheabOit) to disable or enable 
someol the image handling features. Passa key, 

Problem The picture image near)) always dictates the cotot 
palette I low .an we pOSSlbly hgure. in advance, with hundred- ot 
pictures to load, thai lev! will show up well against the backdrop color 
and that it won't go nuts in a HAM environment even when we label 
details within the HAM Image' 

let's li«.k a tme solution but first consider two 
We need to place an image, then define Irom top to bottom how manv 
Una there are and the left and right bounds of each line Two main 
Way* exist I irst. just start at the top and tigurceaJi line as you go 
looking at the bottom margin to be sure not to go to far The included 
sub works this i% ay It sets an upper /one left anil right and a lower 

/one left and right When the image is placed, those values get set We 

could use an alternate method ol setting up an array to hold the left 
and right limits and the vertical position of the line. This latter method 
is fast, but carries the array overhead which isn't bad. The array 
method would allow columns of text and central placement of images 
The text printing would merely slay within the array limit set for that 
page. The latter was not used for no good reason It was determined. 



oaf MapeMimi.mi.njti 
If Dill .. OUI tbaa 
M « • " 
«o -Mia poatll.Olltl > 

Im is • t* a MtMamt.eaiii * an 
1st It < Ktarldt.calll 
loop 
lot t-apcbarl • Tt k II 

■lM 

lat mpdul ■ M 
ud ir 

and a*r 

Md »1» 

I •■oTaba' Do riogru 

i itrip taca out at -C coda and -. I apacaa aaeb. 

t Tba umI 'C* adit or* in taba •lot. I piafar >p* 

I I can do batur ooda convaraloaa with all apacaa. 



fnaoTab.DOtlleaKj. argl) 
TO 1 ■ 1 IO raoundlllnall 
LIT p . poatllMltli.CHXIIIH 
IF p v o ibao 
DO Ml la p > I 

LIT llMlUMp'pl . - - 

LIT p . pMlllMllll.Cnillll 
LOOP 

no ir 

IT 1 

no m 



tOd lob 



thai a 'Cause error' is used lo break out of the sub and creates an 
err string lirr strings are automatically reported in Ihe command 
window. That's cheap. I know. Bui. this t> a very easy way lo gel short 
informational text lo the command window. 



t 'Cuftga dlr- 

I UCTMCTi Cbugaa I raporta tba mm 

i ot tha currant dlractorr. 

i farad aa coapllad coda 'CbangaDlr' la tea Tiro diractory. 

1 imtU< DO ChangaDlr. "Mn Diractory mam' 

DTBOHL 

--T"-roi..rii--'irritipi|n murrain 
Library -(Toolkit Ibtgbdoa" 
Llbrary -IMlgaToolaloOa*' 
Library -lAalgaToolalMlga*- 

If MMuil • -- tbae 
cmn arror 1, *naai Do CD. pait 
a*d If 

call aaadltiOldXaMli 
■ban arror la 
call CbdlrUMuMmlE 



cauaa arror 1. Ixtaitl i * 31r»* I "*i1»i — I 
aad mm 

cauaa arror 1, 'Directory la - ■ MvXi 

Mi Mk 



I 'Ml.dlr' 

I AMTUCTi laporta Ua oaM ot tba currant diractory 
■ 1b tha CfiMii 1 alDdov. will acbo if KM la actlvatad. 
I Tba coaf Had varaloa la 'AakDlr' la la tba TIDo draoar. 
I ITlfTlur.i DO HOlr 
dtoxal 

aab aak.DlrUlMlO. argil I argl la ignorad 
Library -IToolkltlblgbdoe'" 
Llbrary -|«*>gaTool*>do*"- 
Llbtary -(*alaaTeoIa)a*lga" 

Call aaadlndlrUMtl 
'«•!• arror 1. -Diractory la * a dlrmaMl 



Here, the BUM strategies an used An error trap 'When error in' is 
used to trap an error to allow formation ot a meaningful message. 
Extextj is a True BASIC siring thatcanbecheckedatanytime.lt 
contains "" or texl relating to a trapped error by 1 rue BASIC Here we 
put the error text out. as is. hut with additional information concat- 
enated (St) 



l -IhallLlb.Do- 

I Tba coapllad varaloo la a**ad aa 'Mall' 



la tba 
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however to uses method which would be most suited to ham Images 
jiwl avoiding (ringing without repair work, and to handle XSpocs 
images which demand very careful vertical backing and need text 
vertical offset double printing to eliminate eye de str o ying flicker 
(worse than Interlace alone). 

i lere Is what we do. Place the imago m any of (our corner 
positions I'iot .1 tt.ime around it it the imago carrtei such a flag or it 
requested by the caller (This frame Is the simplest way lc kill fringing 
in HAM) Soi ( o!orvtoth.it reque st ed by the caller but allow tho caller 

lo defer lo color choices encoded in Ihe imam 1 Itself, Invisibly, (he 
image has encoded information which tells all subs what tod and 
background color combinations work best, whether the image is v I t. 
whal Frame color is best, and other optional goodies 

Alter placing the image, start the top and lay down one lino of 
text at a time, hyphenating and justifying according to flags set. At text 
end or window bottom stop and rcplot the image in an image control 
sub. That sub waits tor mouse click or key press It the input is image 
control it does what is asked It ii Is unfamiliar, II returns to the text 
wrapping sub It the text wrapping sub does not rCCOgnJZC the key 
press it return* to Ihe imagecontrol sub. Round and round we go if 
strange lev presses arc given However, tt the key press Indicate*- 
forward or backward text scroll, then tracking pointers to the tod are 
used to replot the window text and pause again in the image control 
sub. 

The text wrap sub does more than blindly print the parsed tod li 
roads the text for key words and control sequences. These words can 
bring up l text input requester with i message such as a question. The 



text input from the user i- stored in an answer text arra\ to be passed 
back to the main program on conclusion of the sub a. to. 1 1\ I hat array 
also carries data indicating where the mouse was pointing and what 
frame of the image is as shown at the tune of the answer . 

Because each frame can be a unique image, and because each 
frame can encode data about itself it uteasj to shot* ■ series ol ANIMal 
images and a-k "Point to a duck's bill It the duck is image "land the 
>.v image pixel coordinates are within the set tolerance ol the 
embedded coordinates (orcolor) tor ' Duck bill", then the program 
knows that the answer wascomct Hie program need not even knOH 
about ducks, their bills, anything Specific I" 1 -' thai the point and click 
matched the C|uer\ 

In normal use you do not call this sub directly, but call Others 
with easier names which in turn call this one. setting most of iii . 
and values |„i vim Elmer Waj . here is a breakdown of the manv 
arguments to this sub before we dissect the sub Itself: 



aMbffrapTaataoiQuaryAiriHlaruahlO. II. Tail LTI. Tail FTI, 

TaitKua.aackMua. ■rlad'wrraaa. ■raann aaaWna.Owad. 
Kyptirct.JuatPct.1Urglaa.!.lna«paclDg. 

L,H,t,f.llir&l*, LooaupTablai J. A«. Uapraaatlll 

!lDiat( -:»!. ScraaaModaLkbOBJ- I Maaourca atataaaat . 



I his Sub calls another library to do some of its work The structure ol 
"intelligent images". Images with nonimage embedded data, is 
handled by ScrecnModel ib 

This is the big one that the others call to do their work. If you must 
control specific aspects of the function, 'ben use this call Most ol the 



i TKto dravar. Batkar than click bad and tonD rot 




-ad If 


1 tilt —in 8—* nt. uaa as Aalga thall. Typa 'do Shall' 




aaat 1 


I I* tba coaaand wlndm. An Aalga afcall pop* up. 




Mdaub 


i Kaquliaa doa* . aalga* 






■XTBOOl 

abb Ot 'balliLlnalll. arrjl) 




Notice that am number bigger than the string length, in String 


call a*alll-"i 




notation brackets, means after the last character Ihe notation let 


and aitb 




■SfftO] ,v would Insert an 'A - into the string "8C in i 


■as faalliall 




"ABCDllr*" When updating complex files it b hand, lo keep track of 


library 'lAaUgaToolaldoa 1 * 




the date so as to avoid later contusion tor small, hard-to-find char. 


library MaalaaTooIalaaJgi*- 




Here. \\o update' would Update the date and time stamp in yOUT 
remarks at the top of the file Hip to l»i line-, before go nig Up] " the 


daciara Oaf Opan. taacnta. Cloaa 
daclara dal *ddr 




lai M3M_mmu ■ imi 




compiled code were sued as "Update' Ln the rBDo drawer 


lat l-AXfTKIMUainn • 511 




Get it' 


lai lakaodla, outhaadla • e 

l Opan a couiola "indoni 




One last cute trick OpCTI and si/e the command, edit, and output 


lat nl • '■awflfcoll* a CRfllDi 




windows as all v 


lat ptratllagl • Addrlr.ll 






lat Inbasdlo ■ Opan(ptr>trlagl. ■DM.CT 
ir ifihandla • that, aiit a*b 


»IUI 












lat ui • laacutaiptrnrlogl.lBkaadla.ftatbabdlal 






Cmd 




lat out hand la • D i Alraady cloaad by naar. 

If laaaadla •• than lat m • Cloaallnaaadla) 












Out 


If oat hand la o than lat ui • Cloaa I on tkaadlal 












■Od Mb 












Aa aaay ooai 












uiuni. 












aubDO.OpdataPllalLlball), argil 


■i 










i drat uaa two Trua BASIC it ring* auppltod by ayat 








lat dtl • Data] a**t Tlaa* 






for 1 ■ 1 to iin'ic. ObouBdlllaaall 




t nter this code tn the Edit window 


la» p . poaiDCAlKtllMlH)). *uviaicai .-i 






II pit than 




for 1 . 1 to 1 


i TrUa off old tlaa itaap 




priat -A - -i 1 
oan 1 

oad 


lat llD-alllHp -ID i MJUrai: ■ " 




> Appaod on t la* at asp 




lat llaa|lll|KAJORBl!0) .dtl 






rdl for 




Now run it 1 he output is as you would expect. 
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details of franctjon are handled by defaults, It the defaults bug vou, call 
this sub direct 

BrushSO Any True BASIC brush (any mode, simple. ANIM &/or 
-VD) A null stnng ("") may be used. You had bos! supply color chokes 
unless the defaults are OK, is there Is no color information in a null 
string I se image as an ami evert it il is a single image Vou get big 
Speed and memory savings that way. 

SS Text lo wrap around the brush. Any length, can be many 
pages 

TextLFS.TextFFS Optional user special text embedded line and 
form feed sequences Can be null as the sub uses defaults 

TcxlHue.TextBackllue.BrushFrameHue as before -1 uses values 
in BrushS, if none -> general defaults if color information is not passed 
by the arguments and is not found in the brush itself, then general 
defaults are used 



Oafault tacfcgiooDd color i» C 
t«xt ■ 1 

vlBdo- (IU* • I 

bruah IriH • do**. 

WindowFrame color to frame display area -1 = defaults to coloi 
3 

Quad = Quadrant to show brush in. Err resets the value 1 1 
left upper, 2 - right upper, 3 = left lower, 4 = right lower 

HyphPct. JuilPct Margins(in chars) as above. But. if using the 
query function to return line and char position of mouse click, then 
turn justification off QustPct = 0). Otherwise the x value (char) might 
be oil 



Now edit print "A = " to be "B - " and rerun it 

Ul the output window, under 2 0, BCtl like a shell and appends 
this output tO the last without erasing the last output 

Now in the command window type 
plot text, at ,IJ "'hello" 

That text appeals in the output window as expected. 
place this same line after the tor-next loop in the edit wind. 



plo< ««t. at ,1,,«| -iwllo- 

na 

Now when you run it, the output window clears each time The 
presence of encoded graphic plol commands en can gmphk 

window each time. The 'forget' command also wipes the slate clean 
However, forget' also unloads any loaded Bora 

You can lake this several ways Easily frustrated, "What am I 
supposed to do with all these options'" Answer Nothing lliev are 
invisible If I did not tell vou about them, vou would not have known 
.re there I mei of adventure. Are there others' ". Answei Ves 
but if 1 tell you. then I kill all the fun. Hard core hack 
reallv SUpCf weird that 1 can play with?" Answer. Several (adventure 
lover, stop reading Immediately). Well for one thing the editor can 
load byte files, nibble them and resave them Yes, l rue BASIC <-m> 
load True BASIC and edit I rue BASIC Some of the features in True 
BASIC were typed directly into the compiled code from the True 
BASIC editor Can vnu guess which ones! 1 Can you figure how in use 
'do' programs with this tidbit 



l IneSpacing (pace between lines 

I..R.B.T The rectangle within the current active window to use 

for this pop-up text end image box 

REPAIR -I I .eave screen as is when done What ever was tlu-re 

stays there, 

ii same 

1 - Repair the l..R.B,T rectangle with what was 
then- before this sub was called (creates 
a pop-up box). Any value > will el un- 
repair 

For memory managemenl ease 
-2 or 2 Kill text (source string •> null) on exit. 
■3 or 3 Kill text and brush (both ->null)on exit 

I ookupTabk'O This array carries data about the brushS lo this sub 
AND carries data about user interaction with the text and image back 
lo the caller It lets the caller know which was the frame in an ANIM 
which was last seen (selected?), and what color the mouse was 
pointing to when it was clicked l.\n\ key that exits actually), and how 
the rsdl was elicited (which key, including function keys). 14 param- 
eter- are tracked 

Some of the 'front end' subs create and decode this lookup table 
array into more clear terms spedRc to the name and intent of the front 
end sub. Keeping this table Intact, however, allows other subs to set 
and examine the table for complicated control uses 

Kej ( vdOut The ord ol the keypress that exits the sub (also 
logged into the lookup table so thai several tables will keep the brush 
data clear but allow a kev track as well) Il vou exit by wax of an 
allowed function key, thai kej ord is duplicated here (also in the 
lookup table). 

ResponseSO Responses is au unj thai is ignored unless the. input 

text contaias certain keywords Hie mam key word is to start a new 
line of printed text 

blah blah\.PROMPT.I2-0This is a prompt\blah blah blah . 

Here 
PROMPT.12-vThis is a prompt 

PROMPT, must be in caps, it triggers recognition of a request fol a 
user typed input. Il cause* a prompt box requester to appear at Ihe 
window bottom 

The 12-could be any number, bul represents the maximum 
length string Ihe user can type in Input terminates automatically at 
thai number. A '1-' would allow a single key press The tilde is needed 
to terminate the number. 

If no number is requested: 

blah blahVPROMPT.This is a prompt\blah blah blah. 
Then the string will be as long as space allows A brush 
image in quadrant I or 2 allows more text space for 
the requester than if it were in quad 3 or 4. 

I Of sinng input, the mouse click is Identical to a carriage return 
<CT>. A mouse click, alone, with no typed lexl, returns an empty siring. 

Theall-x (note thai alternate- \ is '0' and nol V litis is optional 
It present, the x and y values of the mouse cursor and which brush 
frame are tacked onto Ihe string These values are in terms of 
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* -ituir number and 
y=line number. 

If x=5,y=10 this means that the fifth character from the left on the 10th 
tine was clicked 

Ihe response string is returned as "text" it no alt-x was present, 
or as "textV & SlrS(x) & "\" & StrS<v) & "\" & StrS(frame) and might 
lOOk like: 

"My choice is\17\9\6" The backslash parses the parts A 
counter is active which prevents a user query (torn being repeated if 
the help key is pressed to review pnor text. Therefore, text can have 
■ny number of requests for input. The ResponseSO arr,n is 
redimensioned to equal the number of qiMMaMtl ,isked 

About the third addition to the returned 
string; 

~My choice is\17\9\2" 
this A 

This third number is the frame count active at the time the answer was 
given If this was a 7 part ANIM, the 2 means that this question 

was answered with the 2nd frame showing. The mouse pointer m 
on the 17th character in the 9th printed line of text. A string relumed as 
"\17\9\2" means that the user (ust pointed and clicked with no text 
input. 

Control keys: The PollANIMO sub in ScrecnModeLib controls the 

display. Arrow keys step through ANIMs if the brush happens to be 

an ANIM <- steps reverse. - > steps forward, <- and -> cycle to other 

end it end is reached. 

The up & down arrows are the same They step in the current direction 

until the end ot the ANIM then reverse direction (back & forth). Ping 

pong. 

ShifK- resets Ihe ANIM to frame 1 . 

Shift-:- goes to last frame. 

P or p plays the ANIM and returns to whatever frame was last 
seen. It is most pleasing to do a shift-> before p so that the ANIM 
comes to rest on the last frame. 

Keys to 9 an- also play keys. They slow the play down the 
higher the number (.1 to 1 sec). 

Keys B and b play also but backward. Try ShifK- first. <esc> and 
< > exit the display immediately. 

Other keys scroll the text. 
<HELP> key goes back I Kxl page You can back all the way to Ihe 
beginning (limit 30 pages) 

You can lock a specific frame of .\n AMM as ,i single image that 
cannot be polled (played fwd or back) Set LookupTablcfO) = -I The 
image logged by LookupTablef-IO) will be used as a single image. This 
requires that you set up ihe look up table array before you call these 
subs as these subs also will do it if not already done They default to 
the entire ANIM unless this (lag is set 

Here is the actual subroutine code: 



declare def ip*nCh*ra*aat,TBT*i»el. milnl 
declare def rolarCharaidtb. folarCnarBt 

dla TrackPeoeOO) I Caa backtrack 10 pagea. 

dla ftaaiaraaapooaaltlO) t Tract 11mm. pg. 
let BUtr - i Count reapoaeee lo QM. 

dla Lr»»i0it) i Lite faad ate. array 

■at Raeponael • Mini I Jlm array, red la latai 

I a*VB mm AM> FOB U.TM UHil IB UMIR DM I 

il unn • o than mx lur A.a.m.ar in nrcot 
i Default U" a in 
uaar 
call MtUaereedArrayllFal.TBitU'l.Teitrril 

aak color baa 
If OcaaeSIISfUill I • -BODOOBLIl- tbee 

! Ixpllclt TOM OFT 

I luppreaa XBpeca doubled teat print 1 091 

1 If -alng a dlak Coat eblcb doeaa-t aeed It 

lat it > HtliOinuami 

lat M0D0OBU ■ 1 

alaa 

1M at • sat 

lat NODOOBLI • 
and If 

let J-.Lao ■ tanlMI) 
lat TP. RUlbrusb. RabMUlfy ■ 



lat TU 

lat ray 



TMfl.al 1 dafa, daclarad abore 
TBYflxel 1 "bicb return tbe *al of 1 pnal 
I la current alndo* tana. 
■vnr IUM l« 
call IaltUMrolateralfBeedediarasbl. unrrtra) 

lat LbUr ■ LbouadlBrueit) 
lat DbUr • ObowadlBruabf) 

If ■ruab(.'«NIM»traiU!Wtra<-lS)li • " Chan 

1 Maybe a duaaty (rana la a valid WIN 
box keep nX. «. • Tin. ft. an . Tty Is 

■^■f.!:*JiIK«t!a,*i»:iw:rai-;0i. 1 
If CbABr • LbUi then lat RUlbruab ■ 1 

lat "awvilify • wmrtialUlKPtral-lDil a, I 
and If 

on 
1 A Duaarr bruab 

1 Mt redtaa array, nil -> "'a 
aat Bruaht • Vullllil) 
I one pixel bruab 

boa keep Ml, Ml . Tba. MB. ■» . Tty la ■niabllll 
call taltUIWolBtaralfaaadadiaiQabl. MIKTtrel 
lat ElllBrasa • 1 
nro axn 

I SO* KO II THIS MM. IB CVWMT "IBTWM TBJJU.' 

call TtAbrB*hJltaibr>iBBI.uiiKrtra<ajiiMFtia{-iei). 

InagelMd. Inagernt I 

If abaiiMaflaXwdl a> abein-Mi) tbao 

plot ta«, at Ml. iBl.BT)/J i 'inn TOO MlDt.- 

call bBUoldltlkkl 
anil 1.,:. 
and If 

1 OT basra P MDC att coua DnTA or -l'a If none. 

cal 1 BruabOptlonafrcatBruehlBruabl. LfeABr.TBae. aWue, 

■ » rim Ignore! 

I TKMX COLO! CBOICM; DIM MOUNXMT TO TBII BOB. 

1 BR0SB BOIDDI3. OR BLIBD DtBAOlTS If BIITKM POTfllSOt 

choice • I 1 default' Oaei 

Call Defe-ltColor ITeitMue.THue. I, PTUrtBOal 

call DaraaltColorlbackjBia.BBua. 0. ObackBUa) 

call Dafatil l Color llruabrraaalua. brrBua. - 1 . SBruabPraaairua) 

call Patau UColorlTlBdonna— .irtlai, 1, UBlodo«rruat 

call BaaatAnbTointarColoralNIUO'tra.DTaBtatea.DMcklkia. 
■laraiBrraaainia. - 1 1 



lat Cbv . aoi«rCbar"idtb 1 daclarad daf abova 

la; Cob . PoIarCbanrt I - corract ma If dlakfoat 

lat ntar • T ■ CM • l.l 1 rlaaalog aargica for tail 

lat bMar - "B • CM ■ 1.) I top 4 bOttoB 

If laadirg « tbaa I Dafaalt Uoa apaclag. 

lat Lloabt • CM ' 1.) 
alaa 

lat LlnaJIt - CM • ■ulLaadlBfl.ll 



and If 

lat direction • agniBB-BT) 
lat LlaaBt • abatLlDaKtl • dliKtloa 



■ Igbt-ard can ba 



■tl>a 



BUDWrapTaatboaOuerybBINIBruialM. SCt. TaitLTI. Taitrrt. 

TaitBiia. aackw-je. m ndowriaaa . BraiaTraaaiHUa. Oiiad. 
■ypoPct, Jvatrct. Baiglna. Laadlog, BL.BIi.bb.bt. 
U»»l«. MiIKKrall. U. BaapoaaatO) 

library 'TBLilcraacModaLIb.OBJ- 



I HON BBT TO HCTOU, tlMin rOB r»IBTHW «:«OB BAKIMl 
! t IKAOI iraCI 

lat HarglBTiia . aaiOUrgloa, 1 1 
lat attrglDTrlB . Xarot&TrU ■ Cbw 
lat in,. IX • *r. • TB> 
lat W. I* - >* - fM 
lat nrr • by - ray 
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let m • 


KB • T»y 






•elect caaa 


Quad 


■ ■■- i 






let 


iu - n 


laagaxad - TBn 


:*t 


i«r • ar 


laageTht • 7»y 


M 


OB. • lal 


TSl 


let 


NIdr > lat 


T»y 


1*1 At Top • CM 






caea > 




l.l 


IU . «. 




IM 


IBT • B1 




>- 


U. • 1» 


laageX-d . TBa 


IM 


KidY • :b> 


I Maoist 


;.- 


AtTop • 




IM 


iu • n 


I»gal«d . Tta 


|M 


IBT . o 




to 


Ui * IU 


IU 


LM 


■id! ■ lal 


laagaTst 


ta 


AtTop • 

:■■• alae 




IM 


■;■-•! > l 




.--. 


IU - •'- 




LM 


IM • WT 


iMgefht . T»r 


IM 


01 • :mi 


laaaeX-d . TB. 


IM 


HldY • Isf 


T»/ 


IM 


AtTop • ChM 

tod lalaci 




let •!]:•■ • ■:. <n -aiidY •AtTop) 




1 MU MM 


VALtni Or TO L00B7» T*AL| 


! FOB LATO MBIT C* EXIT 


III "old* 


. ttmfiin- 


1 


ir «raotn(-t| •> o tbau 


if o-.a « ) tbaa 




lM Miavtrei-*) 


• -avmlCWI ■ abalAJIIKVtral-ln 


end It 






and if 






let jjhwh.i-m . Axuvtrai-*) * bodoobli 




1 OK. Will 




1 Sbo« laaga. 




t Than loop: ptlBI (ail 


papa -> and oe luge ra«hoa -. 



call ClearFag* aatTotop 

callRwaAOAailO'iaaaitniattf.IU.IaT.AilIMnia.AliIKnial-ien 

DO 
If TV • )0 tbaa lat TV • TV • 1 

lat TraebV»<ra<?v> ■ BtLeo - ImiIII -1 

1 >AOI Of TOTi 

do 

If NilMt -Ti <> dlractloa tbaa axil do 

If BottoalaSat - aad abaiaT-T) » XldTaai tbaa 

call let aottoacf rage 
aad if 

call VareeTeatOiai.LVAI.SpCn.aypfaVct.aaaLrrr. 
Wipjaa t ll 



ir riagaantllliB) • -.VROaVT.- tbaa 

II UaadQuarty . ItTlea •laaialll tbaa 

call OatOaerBeapoaae<riaga»att[f :RADICBH} 
lat OaadOuerrr ■ Maa (OaedQuerry, IBTlon 
-lan(»I))t 
aad If 
alaa 

call rlotJuatlfladBoairragaaptl. II. T. 
MlHVtiai-t). CbK.M.JuatVet.OI 

lat > - T • LlDaHt 

aad It 

loop ■alia •■ •> " and MaLrrr « 4 I <• ■ ton faad 

i iHMn wo" i coaraoL- 
call MlluiiuoniBbl.lu.iBT.WfllVttv.kki 
If U • J' or bk • It tbaa aalt do 

if " ■ »» tbaa i Malp *ey -» Backup 1 papa. 

lat St • SMITrec»Veg.<B-a<l.TV-liJ i HAIatMl 

lat TV ■ aaXO. TV-ll 
aad If 

If at 4> -- tbaa call ClaaiVapa_IatToTop 
IOOP .Mlt a! .. " 

I 00n. Claan up Before going boaa. 
aat co lot bua 
lat A>IXVtre(-*t • Bold) 
If mtll > tbaa HZ SHOW neoi at wl.*b 
lat Ondol • " 

If abaCMVAIBI > I tbaa lai 111 ■ •- 

If RaMlllfy <> s tbaa lat IniabtlVouadiaaauillfr) ) ■ •■ 
It abelUVAIBi • 3 or KlUBruab • 1 tbaa 

aat Iniabl • irjLfllill 
aad If 

If aavti • tbaa 
i Tvxu am uavoaau. mom amm* ahaay to biu auoan. 



aat ■eapooaal • NulKnxutii 

foi 1111 • 1 to IttPtT 

lat Beapooaallllll) - B*i<>»*ipoeiaf Hill i 
neat llll 
aad It 

•ubClearFape aatToTop I local aubaub 
i liaaa Taat lonlyl Area, 
aat color UBecUfue 
boa ataa trL.oa.xidT.aar 
boa area LL.LR.m.MtdT 

If OMindo-Vraao •> tbaa 
aat color WlndoWiaa* 
boa llaaa m..M.n.ar 
aad It 

let T • TWar 
lat II . OL . HargiaTria 
lat XI - OB ■ MarglaTrla 
lat Spa. . ■paaCbararaBtlXl.U.CbNl 
lat bottoalalat - 

•at color TTaatBue 

and auk 

rob XataottoaOfVaga t local aubaub 
lat XI - LL . aWrglaTrla 
lat XJ - La - aarglaTrla 
lat ppCh • BpanCbnriraat(Il.Il.CM) 
tat Pottcatlaaet • 1 
and aub 

aubOatOieraeapocaaipt) i local aubaub 
If plllitl ■ 'aaoa- tban 
lat pltlill • " 
■ban arror la 

let taat • val(pl) 

If taat •• LbouadlBruabl) aad 

taat >• mouadianabl) tbaa 
lat MmtVtrai-iai ■ taat 
aad It 
call PollAmaalBruabl.IU.IaT.AVIXVtra.Iaaora) 

MM 

■ I ' - -.. I 

aalt aub 
aad If 

It BBVtr •> 10 tbaa aalt aub 

lat InpLlalt ■ apaaCbareVaat IIi.Ui,C6") -1 

lat ttt - poo(pf,--'> 
If ttt • tbaa 
vban arror la 

lat InpLlalt ■ <ral(pf |I*ttl-l) ) 
let plllitttl ■ " 
uaa 

let laellaUt • Xaaaua 
eod .*.-- 
•ad If 

If plllill . -0- tbaa 
I alt-a aeana fetcb XT coord, a tall traa»B 
lat pldill ■ " 
lat DoOatXT . 1 
alaa 

lat DoOatXT * 
aad It 

lat OBot . a* .ChU'.l 
lat OTop • as • CbH'J 
boa koap U. r LI.QBo<. OTop la QuaryAraa! 

•at color DBackMue 
boa area LL. lb, OBot. OTop 

•at color WlBdcwrraae 
boa liaaa LL. LB. OBot, OTop 
aat color OYeatHua 

plot Mat. at LL .Co". OBot t (CaR • I.T) I pi 

lat botvtr • burtr *1 

call ABruabCBMoaaearaDblLL -tn". OBot • (Cba • 9. it. 
Uater*e*poaael(IOKVtr).CaR, *.'. oaiadoaVraaa. 

InpLlalt. ■yU.ayxi.Kym 



Bature lllu cbar fro* left aad tlaa 
lallowlag for taadlaa and aargloal 



•■■I 



let MyXX • let! Kayxx •■D/CbN) -laaralaa -in 

lat ayTT • lat ( fabalBT -ICyTfl • 

abalLlnami) ' abalLlaaltn 
If DoOatXT • 1 tbaa 
lat MaterMpoaaeltmvtrl tb*a*UBBiO) • -I- a 
Btrllayxil A •*' A ftrllayTI) a -\- a 
airllAMXVtrei-lOli 
•ad If 

boa abo* OuarvAraal at LL.QBot 
let OueryAraal • •• 
*■ -. Baa 
and aub 
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Now we have assumed th-it the called subs cm handle all the 
oddities ol the many kinds of image formats available on the Amiga in 
.ill resolution* The structure of intelligent or smart images is a topic in 
itself. Digest the above stuff first and we will show how easv it is to 
handle these image problems next time Clue: Mow to make any image 
smart 

I or KltUR articles would you like me to show you how lo 

1 . do CAD stuff without the need for environmental XYZ axes? 
(Wire frames, rotations, and function oriented object manipulation) 
Oh, and do it without any matrix math. You'll actually be able to 
follow it. 

2. do doited and text labeled multicolored lines and arrowheads 
that do not distort when rotated and maintain features when soled? 

3. write a simple graphic user text input that can use a seed string 
and edit like a shell? 

4. do pie charts that self label and key with text guaranteed to 
contrast each pie slice? Easy code. 

5 generate true 3-D images that can be viewed with XSpecs and 
used as normal images (brushes, alias get & put stuff)? 

6. show you a fast and simple linear phase filter that won't 
clobber data with power loss or shift and can compensate for sampling 
rate? (make littery lines smooth and pentagons into circles) 

7. do rubber band boxes, circles, ellipses and ghost line equiva- 
lents with shape and image drag ability 1 

8. explain byte run I with a simple easy to follow demo? 

9. show how to write IFF and read IFF from within bask ! 

10. show methods of painting, really painting, within DCTV. 



Files: 
The following compiled libraries arc used 
graphics', intuition", exec*, diskfonl*. hex*, amtga", Font_I.ib", 
ScreenModeLib.OBJ, which together take up I43K or 16% of one 
floppy. 

Most of these library calls come from the libs themselves A 
program call to only a single library call might reference, indirectly. 4 
or 5 of these more basic libraries. Most of the above are merely the 
True BASIC conversions of the familiar .fd files. The FontJ.ib* is 
written by Paul Castonguay and minimally revised for error handling 
and format compatibility with the redirection library assignments bv 
Roy Nuzzo. ScreenModcLib is by Roy M. Nuzzo. 







Please write to: 

Roy M. Nuzzo 

c/o AC'S TECH 

P.O. Box 2140 

Fall River, MA 02722-2140 



John George Kemeny 

In Mcmorium 
1926-1992 

Some of von may be familial with the ads in Amazing Computing 
offering True BASIC. This powerful programming language is the cre- 
ation of |ohn George Kemeny and Tom Kurt, the developers oi BASIC, 
which as we all know is central to microcomputers and has been since 
1964. Without It the personal Computer would not lv the consumer 
product so much in evidence today Users can program their own 
routines without the need to distinguish a microchip from a microscope. 
a ram from RAM. 

What is more astounding is the "other* badeground of John George 
Kemeny It's ,i* though being the co-creator ol BASK was not enough 
distinction in one's lifetime "ohn Kemeny was one of those individuals 
who never stop achieving. 

John Kemeny came to this country in 1 940 from his native Budapest. 
Hungary, where he had been bom in 1926. Not knowinga word of English 
when he first arrived, John Kemcm ne\ erthcli».s graduated from the top 
of his class at George Wasington High School in New York City At 
Princeton University he completed his undergraduate work in three 
years, having taken a year off to work as a research assistant on The 
Manhattan Project at Los Alamo-. New Mexico 

Upon graduation, Kemeny became mathematical assistant to Albert 
Einstein, working with him on the Unified Field theory .it Princeton's 
Institute for Advanced learning At the. igeof 21 he received his Ph. D. in 
mathematics. 

Continuing in the tradition of the Ivy League. Kemeny joined the 
faculty at Dartmouth College in Hanover, NH,aSS mathematics instruc- 
tor. At age 27 he became a full professor, and in two years assumed the 
chairmanship of Dartmouth's Mathematics Department. 
He so loved teaching that when the trustees at Dartmouth ottered him the 
presidency, he negotiated an arrangement with them to be allowed lo 
leach a couple of clavscs. each term. 

Only two months into his college presidency, the social unrest 
brought about by the Vietnam conflict swept college campuses. During 
the turmoil of the Kent State incident. Kemeny decided to cancel classes 
and lead his students in a week of mourning and soul searching He 
successfully diffused tensions on campus, giving his students a desper 
ateh needed release from the throes of the Kent Stale tragedy and 
controversy embroiling the nation. 

Kemeny vigorous!) recruited minorities m Princeton, in particular 
Native Americans. During the summer 1972 session he successfully 
integrated women into a student body thai had been an all-male bastion 
since 1769. 

In 1979 President |imm\ L.uter requested thai hech.nr the presiden- 
tial commission investigating the ThrceMile Island incident. Ihc first U.S. 
nuclear power plant disaster Kemeny helped draft the report thai con- 
cluded that human error and a lack of proper controls lead to the nuclear 
accident. The report criticized the nuclear industry, citing its ineffectual 
policies and procedures 

Hi- experience With the Three Mile Island i nvestig.it ion led him lo 
call for a change in term limits of elected officials, and (or a Strong 
partnership between government and aeademia on scientifi. questions 
affecting the national welfare 

Dr. John George Kemeny died of a heart attack on December 26, 
1992. having served his fellow man as an inventor, teacher, philosopher, 
crusader.and innovator During his lifetime, he had authored l3booksOfl 
wide-ranging subfe. t- lo he known as the co-creator ot BASIC would 
have been luminance enough in anyone's career. 

He participated widely in the incidents and ideas that have shaped 
the nation and the world .i- we know it. He drew on his intelligence, his 
wisdom, and his perseverance lo fulfill his desire to serve his fellow man 
to make a difference in the human condition He hnnsell is a model for us 
all, and that is lo become his most enduring legacy. 
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Should You? 



Amaze Them Every Month! 

Amazing Computing For The Commodore Amiga is dedicated to Amiga users 
who want to do more with their Amigas. From Amiga beginners to advanced 
Amiga hardware hackers, AC consistently offers articles, reviews, hints, and 
Insights Into the expanding capabilities of the Amiga. Amazing Computing is 
always in touch with the latest new products and new achievements lor the 
Commodore Amiga. Whether it is an interest in Video production, program- 
ming, business, productivity, or just great games, AC presents the finest the 
Amiga has to offer. For exciting Amiga information in a clear and informative 
St) le. there is no belter value than Amazing Computing . 



A Guide For Every Amiga User. 

Give the Amiga user on your gift list even more information with a SuperSub 
containing Amazing Computing and the world famous AC's GUIDE To Tlic 
Commodore Amiga. AC'$ GUIDE (published twice each year) is a complete 
listing of every piece of hardware and software available for the Amiga. I his 
vast reference to the Commodore Amiga is divided and cross referenced to 
provide accurate and immediate information on every product for the Amiga. 
Aside from the thousands of hardware and software products available, AC's 
GUIDE also contains a thorough list and index to the complete Fred Fish 
Collection as well as hundreds of other freely redistributable software 
programs. No Amiga library should be without the latest AC s CI !l >! 



More TECH! 

AC's TECH For Tlte Commodore Amiga is an Amiga users ultimate technical 
m agazine. AC's TECH carries programming and hardware techniques loo large 
or involved to fit in Amazing Computing. Each quarterly issue comes complete 
with a companion disk and is a must for Amiga users who are seriously 
involved in understanding how the Amiga works. With hardware project-. StK h 
as creating your own grey scale digitizer and software tutorials such as 
producing a ray tracing program, AC's TECH is the publication for readers to 
harness their Amiga to fulfill their dreams. 



/\mazing^\Hi<..\ 
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To order phone 

1-800-345-3360 

(in the U.S. or Canada) 

Foreign orders: 

1-508-678-4200 

or 

FAX 1-508-675-6002. 

or 

CLIP THIS 

COUPON AND 

MAIL IT TODAY! 

MAIL TO: 

Amazing Computing 

P.O. Box 2140 

Fall River, MA 02722-0869 




Y CO; The "Amazing" AC publications give me 3 GREAT reasons to save! 
Please begin the subschption(s) indicated below immediately! 
Nam© 



Adrtota 
City 



Start 



zip 



Charge my Visa 
Expiration Date 



MC V 



Signature 



VISA 



Pleas© orde 10 mdicalo this <s a New Subscription o' a Renewal 



I year of AC 



1 2 BIG issues erf Amazing Computing* 
Save over 49% off the cover price) 



US $27 CO 
;anodo/MexJco $34.00 
Foreign Surface $44.00 



1 year SuperSub AC*ACSGUIDE— 14 issues total! 

Save more than 46% oft the cover price} 



US$37.00 

Canada/Mexico $54.00 

Foreign Surfoce $64.00 



I year of ACS TECH 



4 BIG issues' 

The ONLVArngo technical magazine • 



US $43.95 
Canada/Mexico $47.95 
Foreign Surfoce $51 95 



Please call for all other Canada/Mextco/ioreign surface & Air Mail rales. 



Chock or money order payments must be in US lunds drawn on a US bank: subject lo applicable sales lax. _ 




You've created the perfect piece, now you're looking for a good service bureau for output. You want 
quality, but it must be economical. Finally, and most important, .you have to find a service bureau that 
recognizes your AMIGA file formats. Your search is over. Give us a call! 

We'll imageset your AMIGA graphic files to RC Laser Paper or Film at 2400 dpi (up to 154 Ipi t at a 
extremely competitive cost. Also available at competitive cost are quality Dupont ChromaCheck 1M 
color proofs of your color separations/films. We provide a variety of pre-press services for the desktop 

publisher. 

Who are we? We are a division of PiM Publications, the publisher of Amazing Computing for the 
Commodore AMIGA. We have a staff that really knows the AMIGA as well as the rigid mechanical 
requirements of printers/publishers. We're a perfect choice for AMIGA DTP imagesetting/pre-press 
sen' ices. 



We support nearly every AMIGA graphic t£ DTP format as well as most Macintosh™ graphic/DTP 

formats. 



For specific formal information, please call. 



For more information call 1-800-345-3360 

Juxt ask for the service bureau represents 



Bring your Amiga 




AMOS — The Creator is like nothing you've ever seen before on the Amiga. If you want to 
harness the hidden power of your Amiga, then AMOS is for you! 
AMOS Basic is a sophisticated development language with more than 500 different 
commands to produce the results you want with the minimum of effort. This special 
version of AMOS has been created to perfectly meet the needs of American Amiga owners. 
It includes clearer and brighter graphics than ever before, and a specially adapted screen 
size (NTSC>. 



** Whether you are a budding Amiga programmer who wants to create fancy graphics 
without weeks of typing, or a seasoned veteran who wants to build a graphic user 
interface with the minimum of fuss and link with C routines. AMOS is ideal for you. n 
Amazing Computing. June 1992 
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^ Define and animate hardware and software sprites (bobs) with lightning 
speed 

► Display up to eight screens on your TV at once - each with its own color 
palette and resolution (including HAM. interlace, half-brite and dual 
playfield modes) 

^ Scroll a screen with ease. Create multi-level parallax scrolling by 
overlapping different screens - perfect for scrolling shoot-em-ups 

^ Use the unique AMOS Animation Language to create complex animation 
sequences for sprites, bobs or screens which work on interrupt 

^ Play Soundtracker. Sonix or GMC (Games Music Creator) tunes or IFF 
samples on interrupt to bring your programs vividly to life 

► Use commands like RAINBOW and COPPER MOVE to create fabulous 
color bars like the very best demos 

► Transfer STOS programs to your Amiga and quickly get them working like 
the original 

► Use AMOS on any Amiga from an A500 with a single drive to the very 
latest model with hard disc 



U/UflT YOII IJFT AM0S Bas,c ' spr,le edll0f ' Magic Fo,esl and Amos,eroids 

ffffrifll lUU ULl arcade games. Castle Amos graphical adventure. Number 
Leap educational game. 400-page manual with more than 80 example programs on disc, 
sample tunes, sprite files and registration card. 

// you've got an Amiga you need AMOS! 



For help you can phone the special US SUPPORT UNE on 219 874 6380 
Alternatively you can access the special BBS line fo ON-SCREEN HELP on 

219 874 0367 
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AMOS written by Francois Lionet. 

O 1992 Mandann/Jawx 

Country of origin; UK 
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Circle 101 on RmDk Strvtc* card. 



